(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    166787,       4460]
NotebookOptionsPosition[    148839,       4148]
NotebookOutlinePosition[    150112,       4184]
CellTagsIndexPosition[    149977,       4178]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:7b2c5\:7ae0\:8bd5\:9a8c\:573a", "Title",
 CellChangeTimes->{{3.784775530668564*^9, 3.784775545569565*^9}, {
  3.784851389136803*^9, 
  3.7848513896035576`*^9}},ExpressionUUID->"387214d1-1e18-4949-9b65-\
e65b06e45bde"],

Cell[CellGroupData[{

Cell["\:6e05\:7406\:573a", "Subsection",
 CellChangeTimes->{{3.7848580108523006`*^9, 
  3.7848580132119913`*^9}},ExpressionUUID->"a681020c-e937-4ada-a0f4-\
c55250e1a068"],

Cell[BoxData[
 RowBox[{"Clear", "[", "GuassJordon", "]"}]], "Input",
 CellChangeTimes->{{3.7848864483984156`*^9, 3.7848864741817455`*^9}},
 CellLabel->
  "In[180]:=",ExpressionUUID->"4e7136fb-fd55-4118-81eb-ad38c1aed691"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"A", ",", "B", ",", "x", ",", "y", ",", "a", ",", "b", ",", "n"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7848579835337987`*^9, 3.784857989881816*^9}, {
   3.784858168756215*^9, 3.7848581792626595`*^9}, 3.7848596393913164`*^9, {
   3.7848722566167607`*^9, 3.7848722633228245`*^9}, {3.784872635447997*^9, 
   3.784872636475247*^9}, {3.784879555804104*^9, 3.7848795643468924`*^9}, {
   3.7848797694262733`*^9, 3.784879769872135*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"8c3df855-2326-4123-b413-6ecda834c9e6"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.7848853513306665`*^9, 3.784885365402604*^9}, 
   3.7848854126541586`*^9, 
   3.78506225843145*^9},ExpressionUUID->"9415e579-60c6-4f6e-bc24-\
98a229278618"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:9a8c\:8bc1\:8fed\:4ee3\:5faa\:73af\:548c\:5185\:7f6e\:51fd\:6570\:7684\
\:6548\:7387", "Subsection",
 CellChangeTimes->{{3.784872275806383*^9, 
  3.784872289689254*^9}},ExpressionUUID->"19d043a1-ef9f-4430-bb90-\
d311644ee786"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Nest", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"#", "^", "2"}], "&"}], ",", 
    RowBox[{"{", "87", "}"}], ",", "20"}], "]"}], "//", "Timing"}]], "Input",
 CellChangeTimes->{{3.7848723051339703`*^9, 3.7848723980574417`*^9}, {
  3.784872442934494*^9, 3.7848724555194225`*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"692a43e4-99c0-4080-9a10-3987d013ee9d"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{"0.03125`", ",", 
           RowBox[{"{", 
            RowBox[{
            "21869246538369523973328699329066104646438540873056339122067140251\
897545021688342851743450045576668083746855793540548303140402941999584452198941\
639667883231682533234401416637302081379144615089673939739206493066769114372145\
116772880471535064910600461314215749283221720390917394083614446765", 
             TemplateBox[{"2033159"},
              "OutputSizeLimit`Skeleton"], 
             "8717965002027878843711436556814585886006082364005744904838295037\
037459795269815146426467333494325180172192056988932785825196903390328151128091\
450922373918451301744319567514241277894294085656501188836104146088897827007930\
33754328378732051904556513005951898221927609635362969226687062999041"}], 
            "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{44., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLText",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{48., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 78, 27770008073532035930, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 78, 27770008073532035930, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{48., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 78, 27770008073532035930, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{75., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{81., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[27770008073532035930 === $SessionID, 
   Out[78], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{
  3.784872351926982*^9, {3.784872385725896*^9, 3.7848723890565643`*^9}, {
   3.7848724378256845`*^9, 3.7848724567557535`*^9}},
 CellLabel->"Out[78]=",ExpressionUUID->"22a6e1c4-b6dc-46cf-974f-e8027c5f6c22"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", "1"}], ";", 
  RowBox[{"y", "=", "2"}]}]], "Input",
 CellChangeTimes->{{3.7848728123462477`*^9, 3.784872813056347*^9}, {
  3.784872962682611*^9, 3.784872977084075*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"306b3d63-a4d7-42c6-942e-1af5a80ecb8f"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.7848729701346393`*^9, 3.7848729782340155`*^9}},
 CellLabel->"Out[89]=",ExpressionUUID->"48357413-e4ba-410e-9b58-842c0e30bf92"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", "87"}], ";", 
  RowBox[{"y", "=", "87"}], ";", 
  RowBox[{"n", "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.784879208491434*^9, {3.784879253211367*^9, 3.7848792539912634`*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"050ff030-c976-43c0-9f01-037a089f80a3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"While", "[", 
    RowBox[{
     RowBox[{"n", "<", "22"}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", "y"}], "}"}], "=", 
         RowBox[{"{", 
          RowBox[{"y", ",", "x"}], "}"}]}], ",", 
        RowBox[{"y", "=", 
         RowBox[{"x", "^", "2"}]}]}], "}"}], ";", 
      RowBox[{"n", "++"}]}]}], "]"}], ";", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.784872465297944*^9, 3.7848724863306265`*^9}, {
  3.7848725176805115`*^9, 3.784872543596843*^9}, {3.7848725742094707`*^9, 
  3.7848726760505056`*^9}, {3.784872737978445*^9, 3.7848727408545213`*^9}, {
  3.7848729100341372`*^9, 3.7848729535569906`*^9}, {3.784872996308754*^9, 
  3.784872996979966*^9}, {3.7848791327369127`*^9, 3.78487926940166*^9}, {
  3.7848793089735622`*^9, 3.7848793094273405`*^9}, {3.7848810918781414`*^9, 
  3.7848810924007835`*^9}, {3.7848811318868103`*^9, 3.784881132418379*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"c0bf5603-9132-4efa-8926-39479134e76e"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"{", 
            TemplateBox[{"1"},
             "OutputSizeLimit`Skeleton"], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{44., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLText",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{48., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 127, 27770008073532035930, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 127, 27770008073532035930, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 127, 27770008073532035930, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{75., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{75., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[27770008073532035930 === $SessionID, 
   Out[127], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{{3.7848792412994967`*^9, 3.784879270652258*^9}, 
   3.784879312419301*^9, 3.784881095585223*^9, 3.7848811347690973`*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"bce08097-bb35-45e8-b04b-f3e25b06b801"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{
   RowBox[{"While", "[", 
    RowBox[{
     RowBox[{"n", "<", "22"}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", "y"}], "}"}], "=", 
         RowBox[{"{", 
          RowBox[{"y", ",", "x"}], "}"}]}], ",", 
        RowBox[{"y", "=", 
         RowBox[{"KKK", "[", 
          RowBox[{"x", ",", "2"}], "]"}]}]}], "}"}], ";", 
      RowBox[{"n", "++"}]}]}], "]"}], ";", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.784880882354059*^9, 3.784880906819744*^9}},
 CellLabel->
  "In[125]:=",ExpressionUUID->"0d5704c8-c4e9-48bc-97c8-fd8e8d1e7162"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"{", 
            TemplateBox[{"1"},
             "OutputSizeLimit`Skeleton"], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{44., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLText",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{48., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 125, 27770008073532035930, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{48., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 125, 27770008073532035930, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 125, 27770008073532035930, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{75., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{81., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[27770008073532035930 === $SessionID, 
   Out[125], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{3.7848809085233727`*^9, 3.7848809390225186`*^9, 
  3.784881113903254*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"4e37b07b-9850-4a49-bdd4-e671854fffd2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["y"], "Input",
 CellChangeTimes->{3.784872992022645*^9},
 CellLabel->"In[93]:=",ExpressionUUID->"13473d3c-412e-4f55-84d1-fe47b491aad2"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.7848729930668564`*^9, 3.7848729993536034`*^9}},
 CellLabel->"Out[93]=",ExpressionUUID->"01651f2f-d62a-4dc2-9f23-bae856db9b69"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"87", "^", 
   RowBox[{"(", 
    RowBox[{"2", "^", "20"}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7848793664872875`*^9, 3.784879377678355*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"7ca89134-b334-43de-906b-d6cf47e29a09"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{"0.046875`", ",", 
           RowBox[{
           "218692465383695239733286993290661046464385408730563391220671402518\
975450216883428517434500455766680837468557935405483031404029419995844521989416\
396678832316825332344014166373020813791446150896739397392064930667691143721451\
1677288047153506491060046131421574928322172039091739408361444676595", 
            TemplateBox[{"2033155"},
             "OutputSizeLimit`Skeleton"], 
            "30871796500202787884371143655681458588600608236400574490483829503\
703745979526981514642646733349432518017219205698893278582519690339032815112809\
145092237391845130174431956751424127789429408565650118883610414608889782700793\
033754328378732051904556513005951898221927609635362969226687062999041"}]}], 
          "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{44., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLText",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{48., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 126, 27770008073532035930, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 126, 27770008073532035930, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{48., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 126, 27770008073532035930, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{75., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{81., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[27770008073532035930 === $SessionID, 
   Out[126], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{3.784879378719557*^9, 3.7848811194340425`*^9},
 CellLabel->
  "Out[126]=",ExpressionUUID->"ccb40644-0a15-48a5-8670-b03a08df6133"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"KKK", "[", 
   RowBox[{"x_", ",", "n_"}], "]"}], ":=", 
  RowBox[{"Power", "[", 
   RowBox[{"x", ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784879746278823*^9, 3.7848797796913834`*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"710d3990-e1d5-4bfb-90ab-e6f381fc03d7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Nest", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"KKK", "[", 
      RowBox[{"#1", ",", "2"}], "]"}], "&"}], ",", 
    RowBox[{"{", "87", "}"}], ",", "20"}], "]"}], "//", "Timing"}]], "Input",
 CellChangeTimes->{{3.7848797839629507`*^9, 3.7848798919825516`*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"8f594a4a-e11d-4e3a-bdf9-345ca102c11b"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{"0.046875`", ",", 
           RowBox[{"{", 
            RowBox[{
            "21869246538369523973328699329066104646438540873056339122067140251\
897545021688342851743450045576668083746855793540548303140402941999584452198941\
639667883231682533234401416637302081379144615089673939739206493066769114372145\
1167728804715350649106004613142157492832217203909173940836144467659", 
             TemplateBox[{"2033157"},
              "OutputSizeLimit`Skeleton"], 
             "0871796500202787884371143655681458588600608236400574490483829503\
703745979526981514642646733349432518017219205698893278582519690339032815112809\
145092237391845130174431956751424127789429408565650118883610414608889782700793\
033754328378732051904556513005951898221927609635362969226687062999041"}], 
            "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{44., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLText",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 108, 27770008073532035930, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{48., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 108, 27770008073532035930, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{44., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 108, 27770008073532035930, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{75., {1., 9.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{81., {1., 10.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[27770008073532035930 === $SessionID, 
   Out[108], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{3.7848798579809914`*^9, 3.7848798940260663`*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"29b324d0-a8c3-4cf9-a39f-5c8b55f47244"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"1cbcbaca-79a2-4869-970e-b38ad96f1b30"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5411\:91cf\:70b9\:4e58", "Subsection",
 CellChangeTimes->{{3.7848580272170515`*^9, 
  3.784858042972578*^9}},ExpressionUUID->"3a365165-e6ee-4dd4-949d-\
00eb5ea16d03"],

Cell[BoxData[
 RowBox[{
  RowBox[{"VectorMultipulate", "[", 
   RowBox[{"A_", ",", "B_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "=", 
       RowBox[{"Length", "[", "A", "]"}]}], ",", "i"}], "}"}], ",", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "*", 
       RowBox[{"B", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "a"}], "}"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784857660199441*^9, 3.7848576810711093`*^9}, {
   3.7848577375380354`*^9, 3.7848578761193666`*^9}, 3.7848579197300353`*^9, {
   3.7848581595568275`*^9, 3.784858163617962*^9}},
 CellLabel->
  "In[155]:=",ExpressionUUID->"0dd43d34-d04a-4469-90ac-c1b22fa58964"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:77e9\:9635\:76f8\:4e58", "Subsection",
 CellChangeTimes->{{3.7848581452211823`*^9, 3.784858151333829*^9}, {
  3.78486309971317*^9, 
  3.7848631010456553`*^9}},ExpressionUUID->"07e0ac30-fc90-42c9-b8f9-\
414f610e6ee3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixMultipulate", "[", 
   RowBox[{"A_", ",", "B_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k", ",", "l", ",", 
      RowBox[{"m", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Dimensions", "[", "A", "]"}], "]"}]}], ",", 
      RowBox[{"n", "=", 
       RowBox[{"Last", "[", 
        RowBox[{"Dimensions", "[", "B", "]"}], "]"}]}]}], "}"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"VectorMultipulate", "[", 
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"[", 
          RowBox[{"k", ",", "All"}], "]"}], "]"}], ",", 
        RowBox[{"B", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "l"}], "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "m"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784858214494645*^9, 3.7848583660705414`*^9}, {
  3.784858457289869*^9, 3.784858476305994*^9}, {3.784858685828182*^9, 
  3.7848587941208773`*^9}, {3.7848589797115974`*^9, 3.7848590046374927`*^9}, {
  3.7848590908166013`*^9, 3.7848590951300507`*^9}, {3.784859166512855*^9, 
  3.784859210013892*^9}, {3.7848594984159307`*^9, 3.784859504103713*^9}, {
  3.784859762070467*^9, 3.784859765131277*^9}},
 CellLabel->
  "In[156]:=",ExpressionUUID->"a5d8cb50-7d1c-41c3-b6c2-521ff113c5e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:77e9\:9635\:884c\:4ea4\:6362", "Subsection",
 CellChangeTimes->{{3.7848627710266666`*^9, 
  3.784862776733399*^9}},ExpressionUUID->"fedb157f-a6f2-4dfb-aba7-\
f67160fac977"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"x", ",", "y"}], "}"}], "=", 
  RowBox[{"{", 
   RowBox[{"y", ",", "x"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7848627799781876`*^9, 3.784862787251726*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"6f9cc956-88e3-4719-a057-f226441a2b93"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<LinearAlgebra`BLAS`\>\"", "]"}]], "Input",
 CellLabel->
  "In[157]:=",ExpressionUUID->"f2e42178-38f6-4e8b-a270-e0cdf3f43da6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:9ad8\:65af-\:7ea6\:5f53\:6d88\:5143\:ff08\:63a5\:8fd1\:6210\:529f\
\:ff09", "Subsection",
 CellChangeTimes->{{3.784872179480375*^9, 3.78487219146177*^9}, {
  3.7850180703485107`*^9, 
  3.785018076471143*^9}},ExpressionUUID->"e7da8ee4-c508-4885-a5d3-\
ba4a5a2200b9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GuassJordon", "[", "B_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "A", ",", "AA", ",", "K", ",", "F", ",", "a", ",", "S", ",", "b", ",", 
      "c", ",", "x", ",", "y", ",", "k", ",", "i", ",", "j", ",", "m", ",", 
      "n", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"A", "=", "B"}], ";", "\[IndentingNewLine]", 
     RowBox[{"c", "=", 
      RowBox[{"First", "[", 
       RowBox[{"Dimensions", "[", "A", "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"F", "=", 
      RowBox[{"IdentityMatrix", "[", "c", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"i", "<", 
        RowBox[{"c", "+", "1"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a", "=", 
           RowBox[{"Max", "[", 
            RowBox[{"Abs", "[", 
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{"j", ",", 
                  RowBox[{"{", 
                   RowBox[{"j", ",", "i", ",", "c"}], "}"}]}], "]"}], ",", 
                "i"}], "]"}], "]"}], "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"b", "=", 
           RowBox[{
            RowBox[{"First", "[", 
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{"A", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{"j", ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "i", ",", "c"}], "}"}]}], "]"}], ",", 
                    "i"}], "]"}], "]"}], "]"}], ",", "a"}], "]"}], "//", 
              "Flatten"}], "]"}], "+", 
            RowBox[{"(", 
             RowBox[{"i", "-", "1"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "All"}], "]"}], "]"}], ",", 
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"b", ",", "All"}], "]"}], "]"}]}], "}"}], "=", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"b", ",", "All"}], "]"}], "]"}], ",", 
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "All"}], "]"}], "]"}]}], "}"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"F", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "All"}], "]"}], "]"}], ",", 
             RowBox[{"F", "[", 
              RowBox[{"[", 
               RowBox[{"b", ",", "All"}], "]"}], "]"}]}], "}"}], "=", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"F", "[", 
              RowBox[{"[", 
               RowBox[{"b", ",", "All"}], "]"}], "]"}], ",", 
             RowBox[{"F", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "All"}], "]"}], "]"}]}], "}"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"n", "=", 
           RowBox[{"i", "+", "1"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"A", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "All"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "All"}], "]"}], "]"}], "/", 
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "i"}], "]"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"F", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "All"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"F", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "All"}], "]"}], "]"}], "/", 
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "i"}], "]"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"S", "=", "F"}], ";", "\[IndentingNewLine]", 
          RowBox[{"While", "[", 
           RowBox[{
            RowBox[{"n", "<", 
             RowBox[{"c", "+", "1"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"k", "=", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"A", "[", 
                   RowBox[{"[", 
                    RowBox[{"n", ",", "i"}], "]"}], "]"}], "/", 
                  RowBox[{"A", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "i"}], "]"}], "]"}]}], ")"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{"n", ",", "All"}], "]"}], "]"}], "=", 
                RowBox[{
                 RowBox[{"A", "[", 
                  RowBox[{"[", 
                   RowBox[{"n", ",", "All"}], "]"}], "]"}], "-", 
                 RowBox[{"k", "*", 
                  RowBox[{"A", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "All"}], "]"}], "]"}]}]}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"F", "[", 
                 RowBox[{"[", 
                  RowBox[{"n", ",", "All"}], "]"}], "]"}], "=", 
                RowBox[{
                 RowBox[{"F", "[", 
                  RowBox[{"[", 
                   RowBox[{"n", ",", "All"}], "]"}], "]"}], "-", 
                 RowBox[{"k", "*", 
                  RowBox[{"F", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "All"}], "]"}], "]"}]}]}]}]}], "}"}], 
             ";", 
             RowBox[{"n", "++"}]}]}], "]"}]}], "}"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"i", "++"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"K", "=", "A"}], ";", "\[IndentingNewLine]", 
     RowBox[{"p", "=", 
      RowBox[{"c", "-", "1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"AA", "=", "A"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"p", ">", "0"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"A", "[", 
            RowBox[{"[", "p", "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"[", "p", "]"}], "]"}], "-", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"A", "[", 
                RowBox[{"[", "q", "]"}], "]"}], "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"AA", "[", 
                  RowBox[{"[", 
                   RowBox[{"p", ",", "q"}], "]"}], "]"}], "/", 
                 RowBox[{"AA", "[", 
                  RowBox[{"[", 
                   RowBox[{"q", ",", "q"}], "]"}], "]"}]}], ")"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"q", ",", 
                RowBox[{"p", "+", "1"}], ",", "c"}], "}"}]}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"F", "[", 
            RowBox[{"[", "p", "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"F", "[", 
             RowBox[{"[", "p", "]"}], "]"}], "-", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"F", "[", 
                RowBox[{"[", "q", "]"}], "]"}], "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"AA", "[", 
                  RowBox[{"[", 
                   RowBox[{"p", ",", "q"}], "]"}], "]"}], "/", 
                 RowBox[{"AA", "[", 
                  RowBox[{"[", 
                   RowBox[{"q", ",", "q"}], "]"}], "]"}]}], ")"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"q", ",", 
                RowBox[{"p", "+", "1"}], ",", "c"}], "}"}]}], "]"}]}]}]}], 
         "}"}], ";", "\[IndentingNewLine]", 
        RowBox[{"p", "--"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "A", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.784872206705611*^9, 3.7848722346345353`*^9}, {
   3.784879425396327*^9, 3.7848795446321*^9}, {3.7848795868841877`*^9, 
   3.784879596493486*^9}, {3.7848799889304066`*^9, 3.784880065555915*^9}, {
   3.784880129511084*^9, 3.7848801380402517`*^9}, {3.7848802099430375`*^9, 
   3.7848802111967297`*^9}, {3.7848803695697927`*^9, 3.784880443551669*^9}, {
   3.784881161775386*^9, 3.7848811646058702`*^9}, 3.7848812072045727`*^9, {
   3.78488123991107*^9, 3.7848812459743314`*^9}, {3.784881328222994*^9, 
   3.7848813950667505`*^9}, {3.784884023349851*^9, 3.7848842072118845`*^9}, {
   3.784884260510384*^9, 3.7848842886161914`*^9}, {3.7848843512439165`*^9, 
   3.784884570319353*^9}, {3.784884603377639*^9, 3.7848847281513133`*^9}, {
   3.7848847625061007`*^9, 3.784884807185066*^9}, {3.7848848411170797`*^9, 
   3.7848848743427863`*^9}, {3.784885015751746*^9, 3.7848850185901756`*^9}, {
   3.7848851246795692`*^9, 3.7848851381415663`*^9}, {3.784885864469025*^9, 
   3.7848859087461643`*^9}, {3.784886097725156*^9, 3.7848861263376045`*^9}, {
   3.78493737251514*^9, 3.784937419188111*^9}, {3.784968892686739*^9, 
   3.7849688979040527`*^9}, {3.78496895583224*^9, 3.784968975050849*^9}, {
   3.7849690612497635`*^9, 3.784969087723549*^9}, {3.784970450901636*^9, 
   3.784970460791236*^9}, {3.7849708292572393`*^9, 3.7849708344034834`*^9}, {
   3.784970876883032*^9, 3.784970889889238*^9}, 3.7850180664519567`*^9, 
   3.785027707144225*^9, {3.7850624677257633`*^9, 3.785062469740207*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"2d99340c-a111-4a5a-9278-eec34749c9e2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"4", ",", "555", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "4", ",", "1"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7850181204836845`*^9, 3.7850181337637353`*^9}, {
  3.785062425538265*^9, 3.7850624274389477`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"7fdb9677-243f-4ee6-bd52-75e31eea2ed4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "555", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.785062433580864*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"f45051fb-43a9-46e8-b8ea-d78f658c7045"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "555", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "1"}], "}"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.785062410623581*^9, 3.785062412299423*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"bd83905e-5e1f-4c42-ace8-01cf168cac6d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "555", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.785062418883823*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"d4e4b9c5-bef5-459f-8d6b-61fae7cb4ae4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7849704776541233`*^9, 3.784970481318328*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"9ae1e761-40d8-4e7c-bc07-52c4a7b38373"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "2", "1"},
     {"4", "555", "2"},
     {"2", "4", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7849705440361776`*^9, 3.7849705572289147`*^9}, 
   3.785018136794664*^9, 3.7850624410511327`*^9},
 CellLabel->
  "Out[59]//MatrixForm=",ExpressionUUID->"362b358e-aa9e-4634-8fb2-\
75bf72625d89"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GuassJordon", "[", "B", "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.785018140611444*^9, 3.7850181489591312`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"a8c6f286-0201-443d-b725-7cee385711f7"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"0", "1", "0"},
     {"0", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7850181495954638`*^9, {3.7850624529330435`*^9, 3.785062479452419*^9}},
 CellLabel->
  "Out[62]//MatrixForm=",ExpressionUUID->"caece61b-94a4-4110-b205-\
e1a95c8e33c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "6", ",", "21", ",", "666"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"7", ",", "4", ",", "2", ",", "56"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "6", ",", "15", ",", "17"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "99", ",", "102", ",", "1"}], "}"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.7849705106893244`*^9, 3.784970523334919*^9}, {
  3.7849705539576817`*^9, 3.784970554201994*^9}, {3.7849709171678333`*^9, 
  3.7849709224389944`*^9}},
 CellLabel->
  "In[169]:=",ExpressionUUID->"fcbec6d3-f06d-4944-9dc7-be037cc2968a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "6", ",", "21", ",", "666"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "4", ",", "2", ",", "56"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", "15", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "99", ",", "102", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7849709356776056`*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"c360b0e9-5e4a-41b0-afdd-ce68747f444a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "6", ",", "21", ",", "666"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "4", ",", "2", ",", "56"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", "1", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "99", ",", "102", ",", "1"}], "}"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.784970929677682*^9, 3.784970929688616*^9}},
 CellLabel->
  "In[168]:=",ExpressionUUID->"5a7644c3-5a27-4992-83e6-274d90fe20d0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GuassJordon", "[", "B", "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.784970430653763*^9, 3.784970444361121*^9}, {
  3.784970791639533*^9, 3.784970794889845*^9}, {3.784970904889655*^9, 
  3.784970905517017*^9}},
 CellLabel->
  "In[170]:=",ExpressionUUID->"4a2d71ed-3ecb-46c5-9073-e16c71ecb47b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", 
      FractionBox["4", "7"], 
      FractionBox["2", "7"], "8"},
     {"0", "1", 
      FractionBox["236", "227"], 
      RowBox[{"-", 
       FractionBox["161", "681"]}]},
     {"0", "0", "1", 
      FractionBox["448972", "10263"]},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.784970438461895*^9, 3.7849704448647747`*^9}, 
   3.7849705306104417`*^9, 3.784970562540454*^9, {3.7849707897815*^9, 
   3.7849708065978117`*^9}, {3.7849708963938503`*^9, 3.7849709377929697`*^9}},
 CellLabel->
  "Out[170]//MatrixForm=",ExpressionUUID->"245338c6-4995-4f23-9036-\
d31f7c300f14"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "=", "B"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"First", "[", 
    RowBox[{"Dimensions", "[", "A", "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"While", "[", 
  RowBox[{
   RowBox[{"i", "<", 
    RowBox[{"c", "+", "1"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "=", 
       RowBox[{"Max", "[", 
        RowBox[{"A", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "i"}], "]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"b", "=", 
       RowBox[{"First", "[", 
        RowBox[{
         RowBox[{"Position", "[", 
          RowBox[{
           RowBox[{"A", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "i"}], "]"}], "]"}], ",", "a"}], "]"}], "//",
          "Flatten"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "All"}], "]"}], "]"}], ",", 
         RowBox[{"A", "[", 
          RowBox[{"[", 
           RowBox[{"b", ",", "All"}], "]"}], "]"}]}], "}"}], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"[", 
           RowBox[{"b", ",", "All"}], "]"}], "]"}], ",", 
         RowBox[{"A", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "All"}], "]"}], "]"}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"n", "=", 
       RowBox[{"i", "+", "1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "All"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "All"}], "]"}], "]"}], "/", 
        RowBox[{"A", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "i"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"n", "<", 
         RowBox[{"c", "+", "1"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"A", "[", 
           RowBox[{"[", 
            RowBox[{"n", ",", "All"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"A", "[", 
            RowBox[{"[", 
             RowBox[{"n", ",", "All"}], "]"}], "]"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"A", "[", 
               RowBox[{"[", 
                RowBox[{"n", ",", "i"}], "]"}], "]"}], "/", 
              RowBox[{"A", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "i"}], "]"}], "]"}]}], ")"}], "*", 
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "All"}], "]"}], "]"}]}]}]}], ";", 
         RowBox[{"n", "++"}]}]}], "]"}]}], "}"}], ";", "\[IndentingNewLine]", 
    RowBox[{"i", "++"}]}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{3.7849691563339596`*^9},
 CellLabel->
  "In[137]:=",ExpressionUUID->"1794656f-5eea-4379-88a1-cddf48bcd50a"],

Cell[CellGroupData[{

Cell[BoxData["A"], "Input",
 CellChangeTimes->{3.7849695204083767`*^9},
 CellLabel->
  "In[134]:=",ExpressionUUID->"dbd3d2e1-7429-4914-bb92-7c92516e5575"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     FractionBox["2", "17"], ",", 
     FractionBox["29", "51"], ",", 
     FractionBox["222", "17"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", 
     FractionBox["1705", "1677"], ",", 
     RowBox[{"-", 
      FractionBox["649", "1677"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", ",", 
     RowBox[{"-", 
      FractionBox["11549", "13419"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7849695212610974`*^9, 3.7849696150512905`*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"55a1e2d1-20df-4006-aa0a-21c1f05e607d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.784969471330557*^9, 3.78496947886374*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"d7091cf2-60e6-41c0-b4e1-96ced93178c4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", 
      RowBox[{"-", 
       FractionBox["59", "43"]}], 
      RowBox[{"-", 
       FractionBox["11549", "1677"]}]},
     {"0", "1", 
      FractionBox["37", "43"], 
      RowBox[{"-", 
       FractionBox["649", "1677"]}]},
     {
      FractionBox["17", "97"], 
      FractionBox["2", "97"], "1", 
      FractionBox["222", "97"]},
     {
      FractionBox["386529", "30847868"], 
      FractionBox["22737", "15423934"], "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.784969472443548*^9, 3.784969479225772*^9}, 
   3.784969525244449*^9, 3.784969617013049*^9, 3.7849697784469023`*^9},
 CellLabel->
  "Out[141]//MatrixForm=",ExpressionUUID->"e3303e26-c248-4019-b376-\
818a9bd8c631"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Inverse", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.784969824280374*^9, 3.784969827454927*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"3d86fa82-5ee5-4ca4-84e3-a9b589efaee0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox["119246", "34769"], ",", 
     RowBox[{"-", 
      FractionBox["2", "17"]}], ",", 
     FractionBox["122176644", "25416139"], ",", 
     FractionBox["71104335740", "5655838461"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["220069", "521535"], ",", "1", ",", 
     RowBox[{"-", 
      FractionBox["6312724", "22426005"]}], ",", 
     FractionBox["334020714704", "84837576915"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["265982", "521535"]}], ",", "0", ",", 
     FractionBox["6733067", "22426005"], ",", 
     RowBox[{"-", 
      FractionBox["356262027532", "84837576915"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["7579", "173845"]}], ",", "0", ",", 
     RowBox[{"-", 
      FractionBox["447161", "7475335"]}], ",", 
     FractionBox["1820024212", "2175322485"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.784969828167985*^9},
 CellLabel->
  "Out[142]=",ExpressionUUID->"a40221c2-cd1d-48e1-b3b4-966622faf7cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["A"], "Input",
 CellChangeTimes->{3.784969397487574*^9},
 CellLabel->
  "In[111]:=",ExpressionUUID->"a38a513b-01d7-468a-b110-9f5680d17dee"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"1"},
      {"1"},
      {"1"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7849693981658115`*^9},
 CellLabel->
  "Out[111]//MatrixForm=",ExpressionUUID->"0979f61f-8d30-4964-8b86-\
964cfe1a4000"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"A", ",", "B"}], "]"}]], "Input",
 CellChangeTimes->{{3.784969373330075*^9, 3.7849694053705025`*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"7b9ecdcb-9510-4c6c-bffd-68082bbbabfb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"51", ",", "6", ",", "291", ",", "666"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"7", ",", "4", ",", "2", ",", "566"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "6", ",", "15", ",", "17"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "99", ",", "102", ",", "1"}], "}"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.784969408128131*^9, 3.784969460958249*^9}, {
   3.784969494465726*^9, 3.784969514124179*^9}, 3.7849696031112075`*^9, 
   3.7849697703166265`*^9},
 CellLabel->
  "In[136]:=",ExpressionUUID->"e4000446-e457-4731-8400-b780f8976659"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"51", ",", "6", ",", "291", ",", "666"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "4", ",", "2", ",", "566"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", "15", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "99", ",", "102", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7849696047607985`*^9, 3.7849697714777284`*^9},
 CellLabel->
  "Out[136]=",ExpressionUUID->"20624325-2ca5-4d3e-bc93-f9376f074731"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"51", ",", "6", ",", "29", ",", "666"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "4", ",", "2", ",", "566"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", "15", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "99", ",", "102", ",", "1"}], "}"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.7849695996619225`*^9, 3.784969599672859*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"e690eccc-e500-48b5-a961-dd5eeb47684c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"51", ",", "6", ",", "29", ",", "666"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "4", ",", "2", ",", "566"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6", ",", "15", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "99", ",", "102", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.784969600782916*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"6997ff2a-081b-4edc-a44a-9b2b2438b907"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["B"], "Input",
 CellChangeTimes->{{3.7849693795644093`*^9, 3.784969385609251*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"6d8c7175-fc9e-49df-a61f-387c3708f547"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "2", "3"},
     {"1", "4", "9"},
     {"1", "8", "27"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.784969386130089*^9, 3.784969401871855*^9}},
 CellLabel->
  "Out[112]//MatrixForm=",ExpressionUUID->"d4896145-c697-4405-afe5-\
66a5a2a2e476"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["A"], "Input",
 CellChangeTimes->{
  3.784969177202177*^9, {3.7849692186622515`*^9, 3.78496922658906*^9}, {
   3.7849693304914913`*^9, 3.7849693679089756`*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"41596a15-46e7-4220-b2f1-1a7bf22bb67e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"1"},
      {"1"},
      {"1"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7849691781436696`*^9, 3.784969227132789*^9}, {
  3.784969346369049*^9, 3.784969368286195*^9}},
 CellLabel->
  "Out[104]//MatrixForm=",ExpressionUUID->"14eb36e8-5a43-4062-aa30-\
439fe474d44c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.7849693498886404`*^9, 3.784969355437807*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"786fa10f-3061-43cd-a363-ffb025a9c24f"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.7849693562344155`*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"7324616a-9150-403f-bed8-282b7c5cec85"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.7849691375692663`*^9, 3.784969141517711*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"9cab2115-5ed4-4656-8167-074d14289234"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "=", "A"}]], "Input",
 CellChangeTimes->{{3.7849691269077654`*^9, 3.784969130541054*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"290a15e7-6d49-45df-ab70-f6997ff7e3a1"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "2", "3"},
     {"1", "4", "9"},
     {"1", "8", "27"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7849691313748245`*^9},
 CellLabel->
  "Out[94]//MatrixForm=",ExpressionUUID->"bddc21ec-b39e-4b01-a3f8-\
d4367774828d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "[", 
  RowBox[{"Dimensions", "[", "A", "]"}], "]"}]], "Input",
 CellLabel->"In[89]:=",ExpressionUUID->"2342c193-e949-4d31-966e-63146180ed41"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.784968936525812*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"5ed53921-f283-4088-9df9-4852fb7ae653"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["A"], "Input",
 CellChangeTimes->{3.7849689063484793`*^9},
 CellLabel->"In[87]:=",ExpressionUUID->"c8fe96bb-94ec-469c-9c4a-0f1c7608165e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "2", "3"},
     {"1", "4", "9"},
     {"1", "8", "27"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.784968907263035*^9},
 CellLabel->
  "Out[87]//MatrixForm=",ExpressionUUID->"0958587a-70a3-47b5-b90c-\
81a4417bd715"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GuassJordon", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.7849689103159075`*^9, 3.7849689132460413`*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"00eeaa70-08a8-4209-9c11-453611135e19"],

Cell[BoxData[
 TemplateBox[{
  "First","nofirst",
   "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"}\\\"}]\\) \:957f\:5ea6\:4e3a\:96f6\
\:ff0c\:6ca1\:6709\:7b2c\:4e00\:4e2a\:5143\:7d20.\"",2,93,68,
   27771537014787986502,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.784968913937194*^9, 3.784968980162204*^9, 
  3.7849690757739387`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[93]:=",ExpressionUUID->"79666c0d-5a04-47a8-b70b-\
53ca4c80980c"],

Cell[BoxData[
 TemplateBox[{
  "Part","pkspec1",
   "\"\:8868\:8fbe\:5f0f \\!\\(\\*RowBox[{\\\"First\\\", \\\"[\\\", \
RowBox[{\\\"{\\\", \\\"}\\\"}], \\\"]\\\"}]\\) \:4e0d\:80fd\:4f5c\:4e3a\:90e8\
\:5206\:6307\:5b9a\:4f7f\:7528.\"",2,93,69,27771537014787986502,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.784968913937194*^9, 3.784968980162204*^9, 
  3.7849690758248043`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[93]:=",ExpressionUUID->"2fbcf506-acdd-4694-a9e7-\
f7b96fea4e53"],

Cell[BoxData[
 TemplateBox[{
  "Set","pkspec1",
   "\"\:8868\:8fbe\:5f0f \\!\\(\\*RowBox[{\\\"First\\\", \\\"[\\\", \
RowBox[{\\\"{\\\", \\\"}\\\"}], \\\"]\\\"}]\\) \:4e0d\:80fd\:4f5c\:4e3a\:90e8\
\:5206\:6307\:5b9a\:4f7f\:7528.\"",2,93,70,27771537014787986502,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.784968913937194*^9, 3.784968980162204*^9, 
  3.784969075887154*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[93]:=",ExpressionUUID->"5cdbec11-678a-4c01-8efa-\
705651cdf216"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"1"},
      {"1"},
      {"1"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7849689142722993`*^9, 3.784968980335703*^9, 
  3.784969075950982*^9},
 CellLabel->
  "Out[93]//MatrixForm=",ExpressionUUID->"4da4b9fe-bd45-4388-85b1-\
e9d872998dd8"]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{
  3.7849505069927063`*^9},ExpressionUUID->"9c3d4071-9613-467e-8719-\
1b074857c72a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "a", ",", "b", ",", "c", ",", "x", ",", "y", ",", "k", ",", "i", ",", 
      "j", ",", "m", ",", "n", ",", "l"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{"First", "[", 
       RowBox[{"Dimensions", "[", "A", "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"i", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"i", "<", 
        RowBox[{"c", "+", "1"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a", "=", 
           RowBox[{"Max", "[", 
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"Table", "[", 
                RowBox[{"l", ",", 
                 RowBox[{"{", 
                  RowBox[{"l", ",", "i", ",", "c"}], "}"}]}], "]"}], ",", 
               "i"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"b", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"i", "-", "1"}], ")"}], "+", 
            RowBox[{"First", "[", 
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"Table", "[", 
                    RowBox[{"l", ",", 
                    RowBox[{"{", 
                    RowBox[{"l", ",", "i", ",", "c"}], "}"}]}], "]"}], ",", 
                   "i"}], "]"}], "]"}], ",", "a"}], "]"}], "//", "Flatten"}], 
             "]"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "All"}], "]"}], "]"}], ",", 
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"b", ",", "All"}], "]"}], "]"}]}], "}"}], "=", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"b", ",", "All"}], "]"}], "]"}], ",", 
             RowBox[{"A", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "All"}], "]"}], "]"}]}], "}"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"n", "=", 
           RowBox[{"i", "+", "1"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"A", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "All"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "All"}], "]"}], "]"}], "/", 
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "i"}], "]"}], "]"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"While", "[", 
           RowBox[{
            RowBox[{"n", "<", 
             RowBox[{"c", "+", "1"}]}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"A", "[", 
               RowBox[{"[", 
                RowBox[{"n", ",", "All"}], "]"}], "]"}], "=", 
              RowBox[{
               RowBox[{"A", "[", 
                RowBox[{"[", 
                 RowBox[{"n", ",", "All"}], "]"}], "]"}], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"A", "[", 
                   RowBox[{"[", 
                    RowBox[{"n", ",", "i"}], "]"}], "]"}], "/", 
                  RowBox[{"A", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "i"}], "]"}], "]"}]}], ")"}], "*", 
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "All"}], "]"}], "]"}]}]}]}], ";", 
             RowBox[{"n", "++"}]}]}], "]"}]}], "}"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"i", "++"}]}]}], "\[IndentingNewLine]", "]"}]}]}], 
   "\[IndentingNewLine]", "]"}], ";", "A"}]], "Input",
 CellChangeTimes->{{3.784938062515497*^9, 3.784938070237859*^9}, {
  3.7849388548856153`*^9, 3.7849389368342133`*^9}, {3.7849389706728897`*^9, 
  3.784938973975064*^9}, {3.784939300297807*^9, 3.7849393007705393`*^9}, {
  3.7849393390352182`*^9, 3.7849393396306753`*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"5cc8c88e-077c-4ba0-9416-6233d793e5d3"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"\:78b0\:5230\:65e0\:7a77\:8868\:8fbe\:5f0f \\!\\(\\*FractionBox[\\\"1\\\
\", \\\"0\\\"]\\).\"",2,81,53,27771133902554023820,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849411311151953`*^9, 3.7849411781105614`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[81]:=",ExpressionUUID->"41e08bbc-7d35-428a-b7ea-\
6ca4183e651c"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"\:78b0\:5230\:4e0d\:5b9a\:8868\:8fbe\:5f0f \\!\\(\\*RowBox[{\\\"0\\\", \
\\\" \\\", \\\"ComplexInfinity\\\"}]\\).\"",2,81,54,27771133902554023820,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849411311151953`*^9, 3.784941178199323*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[81]:=",ExpressionUUID->"5110a199-3105-42cb-83ac-\
83a7583d1751"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"\:78b0\:5230\:4e0d\:5b9a\:8868\:8fbe\:5f0f \\!\\(\\*RowBox[{\\\"0\\\", \
\\\" \\\", \\\"ComplexInfinity\\\"}]\\).\"",2,81,55,27771133902554023820,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849411311151953`*^9, 3.7849411782611575`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[81]:=",ExpressionUUID->"ce39e225-21de-4255-bbfa-\
9aa463dda627"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"\:78b0\:5230\:4e0d\:5b9a\:8868\:8fbe\:5f0f \\!\\(\\*RowBox[{\\\"0\\\", \
\\\" \\\", \\\"ComplexInfinity\\\"}]\\).\"",2,81,56,27771133902554023820,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849411311151953`*^9, 3.7849411783219957`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[81]:=",ExpressionUUID->"7f9c015f-696b-4a45-a0d0-\
eb5120baad86"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"\:5728\:672c\:6b21\:8ba1\:7b97\:4e2d\:ff0c\\!\\(\\*StyleBox[RowBox[{\\\"\
Infinity\\\", \\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) \:7684\
\:8fdb\:4e00\:6b65\:8f93\:51fa\:5c06\:88ab\:6291\:5236.\"",2,81,57,
   27771133902554023820,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849411311151953`*^9, 3.784941178381835*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[81]:=",ExpressionUUID->"72479341-8492-4aa4-9688-\
c705a21994c1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", 
     FractionBox["11", "3"], ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", 
     FractionBox["8", "3"], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
     "Indeterminate"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.784941131405409*^9, 3.7849411784197345`*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"d619a68f-36d3-4445-b062-e64254e98c56"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"i", "+", 
     RowBox[{"2", 
      RowBox[{"j", "^", "2"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784941140506118*^9, 3.7849411715879955`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"6f497b16-d317-4766-93ac-75d10171b9b9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3", ",", "9", ",", "19", ",", "33"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "10", ",", "20", ",", "34"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "11", ",", "21", ",", "35"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "12", ",", "22", ",", "36"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.784941166755913*^9, 3.784941172210554*^9}, 
   3.784947836682418*^9, 3.7849650172424793`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"2ffac20b-09d5-463b-b2a6-1d6ec44a6669"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}], "-", "1"}]], "Input",
 CellChangeTimes->{{3.7849409786277266`*^9, 3.784940983623372*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"6a3c854d-148e-4aea-88bb-ac3d10c0552c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "1", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.784939305313361*^9, 3.784939349901003*^9, 
  3.78494098400535*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"104f2cb0-cdc4-4b7f-9d81-ec5237ef8389"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", 
      FractionBox["14", "11"], ",", 
      FractionBox["17", "11"], ",", 
      FractionBox["20", "11"]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", "2", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
     "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
      "Indeterminate"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
     "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
      "Indeterminate"}], "}"}]}], "}"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.784939047880169*^9, 3.7849390500284653`*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"817a8ec0-28a2-4149-87ff-b7c138bd8e38"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"A", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", "All"}], "]"}], "]"}], "=", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "All"}], "]"}], "]"}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"A", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "1"}], "]"}], "]"}], "/", 
      RowBox[{"A", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}], "*", 
    RowBox[{"A", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "All"}], "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7849410187076683`*^9, 3.7849411016599245`*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"d86a250d-0147-4215-8761-2c2e3797ae9c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"-", 
    FractionBox["6", "5"]}], ",", 
   RowBox[{"-", 
    FractionBox["12", "5"]}], ",", 
   RowBox[{"-", 
    FractionBox["18", "5"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.784941102442831*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"50687bdd-cfd4-432c-85d7-584706604e18"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["A"], "Input",
 CellChangeTimes->{3.7849410556519103`*^9},
 CellLabel->"In[77]:=",ExpressionUUID->"f23e0e75-944e-4d81-91ac-309d3a0cfa2f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"5", ",", "8", ",", "11", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", 
      FractionBox["6", "5"]}], ",", 
     RowBox[{"-", 
      FractionBox["12", "5"]}], ",", 
     RowBox[{"-", 
      FractionBox["18", "5"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "12", ",", "15", ",", "18"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "14", ",", "17", ",", "20"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7849410562633085`*^9, 3.7849411065000277`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"d8527b0d-60fa-4c5f-bc2f-c79d03998b7a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"5", "8", "11", "14"},
      {"7", "10", "13", "16"},
      {"9", "12", "15", "18"},
      {"11", "14", "17", "20"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]]}]], "Input",
 CellChangeTimes->{{3.784940996784191*^9, 3.784941002879896*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"5c082d6b-de11-4649-ac80-848acc92a1b2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"5", ",", "8", ",", "11", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "10", ",", "13", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "12", ",", "15", ",", "18"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "14", ",", "17", ",", "20"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7849390504074154`*^9, 3.784941004284142*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"d4886e5d-86ea-4cc3-814a-fd171e936cbd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", 
      FractionBox["6", "5"], ",", 
      FractionBox["7", "5"], ",", 
      FractionBox["8", "5"]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", "2", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
     "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
      "Indeterminate"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
     "Indeterminate", ",", "Indeterminate", ",", "Indeterminate", ",", 
      "Indeterminate"}], "}"}]}], "}"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.784939008364455*^9, 3.78493901133534*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"bc013b1c-4591-449f-a511-78e1aacea549"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", 
      FractionBox["6", "5"], 
      FractionBox["7", "5"], 
      FractionBox["8", "5"]},
     {"0", "1", "2", "3"},
     {"Indeterminate", "Indeterminate", "Indeterminate", "Indeterminate"},
     {"Indeterminate", "Indeterminate", "Indeterminate", "Indeterminate"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.784939011790125*^9},
 CellLabel->
  "Out[61]//MatrixForm=",ExpressionUUID->"59ff9229-0613-4b0f-ae5d-\
cd9f3171951b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["6", "7"]}], ",", 
      RowBox[{"-", 
       FractionBox["3", "7"]}], ",", "0", ",", 
      FractionBox["3", "7"]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "6"]}], ",", "0", ",", 
      FractionBox["1", "6"], ",", 
      FractionBox["1", "3"]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["5", "7"], ",", 
      FractionBox["6", "7"], ",", "1", ",", 
      FractionBox["8", "7"]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      FractionBox["1", "3"], ",", 
      FractionBox["2", "3"], ",", "1"}], "}"}]}], "}"}], "//", "MatrixForm"}]],\
 "Input",
 CellChangeTimes->{{3.784938126112958*^9, 3.784938128646221*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"3c386726-0223-475e-9f87-e9046f45b065"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox["6", "7"]}], 
      RowBox[{"-", 
       FractionBox["3", "7"]}], "0", 
      FractionBox["3", "7"]},
     {
      RowBox[{"-", 
       FractionBox["1", "6"]}], "0", 
      FractionBox["1", "6"], 
      FractionBox["1", "3"]},
     {
      FractionBox["5", "7"], 
      FractionBox["6", "7"], "1", 
      FractionBox["8", "7"]},
     {"0", 
      FractionBox["1", "3"], 
      FractionBox["2", "3"], "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.784938129046118*^9},
 CellLabel->
  "Out[52]//MatrixForm=",ExpressionUUID->"8237e49c-4f1b-4976-b0d5-\
498209da47fd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"3", "/", "0"}]], "Input",
 CellChangeTimes->{{3.7849401691243258`*^9, 3.784940170186488*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"945933ef-f203-4f6f-a400-6e202fa2c27c"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"\:78b0\:5230\:65e0\:7a77\:8868\:8fbe\:5f0f \\!\\(\\*FractionBox[\\\"1\\\
\", \\\"0\\\"]\\).\"",2,71,41,27771133902554023820,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.784940170702109*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[71]:=",ExpressionUUID->"57011a9d-11fb-4f54-ae4e-\
d4aa5b453b83"],

Cell[BoxData["ComplexInfinity"], "Output",
 CellChangeTimes->{3.784940170731031*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"905139d7-bf65-43fc-b147-f181ab36aeb0"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7849380806366415`*^9, 
  3.7849380806675577`*^9}},ExpressionUUID->"335e542e-06c1-4d24-b98f-\
6513d70db7dd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7849377199107256`*^9, 3.7849377353186083`*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"0c2d23fe-1285-4603-82dc-12a707a6e4c9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      FractionBox["1", "5"], 
      FractionBox["2", "5"], 
      FractionBox["3", "5"]},
     {
      RowBox[{"-", 
       FractionBox["1", "2"]}], "0", 
      FractionBox["1", "2"], "1"},
     {
      RowBox[{"-", 
       FractionBox["10", "21"]}], 
      RowBox[{"-", 
       FractionBox["5", "21"]}], "0", 
      FractionBox["5", "21"]},
     {
      FractionBox["5", "8"], 
      FractionBox["3", "4"], 
      FractionBox["7", "8"], "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7849377209360013`*^9, 3.7849377357434425`*^9}},
 CellLabel->
  "Out[48]//MatrixForm=",ExpressionUUID->"74f7150c-addb-49fa-9a72-\
4db3c781c1bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"2", "i"}], "+", 
     RowBox[{"3", "j"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784937029198047*^9, 3.7849370827307653`*^9}, {
  3.784939030343782*^9, 3.784939031632392*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"90ba0970-8c21-4cdf-a84f-d4efa35645df"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"5", ",", "8", ",", "11", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "10", ",", "13", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "12", ",", "15", ",", "18"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "14", ",", "17", ",", "20"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7849370765757055`*^9, 3.7849370838637376`*^9}, 
   3.7849381047244534`*^9, 3.7849381484628005`*^9, 3.7849389870097003`*^9, 
   3.784939032174451*^9, 3.784939195443101*^9, 3.784939344998287*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"78a6bb17-37a0-4eb6-b74a-e8b82be77f29"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.7849370897073174`*^9, 3.7849371177433696`*^9}, {
  3.7849391916073527`*^9, 3.784939192032217*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"abab5d15-bb6a-4e26-9844-73064a0426e9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"5", "8", "11", "14"},
     {"7", "10", "13", "16"},
     {"9", "12", "15", "18"},
     {"11", "14", "17", "20"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7849371182928996`*^9, {3.784939193108341*^9, 3.7849391972851753`*^9}},
 CellLabel->
  "Out[67]//MatrixForm=",ExpressionUUID->"28dc24a4-73c5-4b98-b772-\
afe5ec359a04"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GuassJordon", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.7849371255465107`*^9, 3.7849371301282997`*^9}},
 CellLabel->
  "(\:8c03\:8bd5) \
In[42]:=",ExpressionUUID->"90d7620c-0859-4333-a19d-306072e174ce"],

Cell[BoxData[
 TemplateBox[{
  "Set","setps",
   "\"\:90e8\:5206\:8d4b\:503c\:4e2d\:7684 \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"2\\\", \\\",\\\", \\\"3\\\", \
\\\",\\\", \\\"4\\\", \\\",\\\", \\\"5\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"3\\\", \\\",\\\", \\\"4\\\", \\\",\\\", \
\\\"5\\\", \\\",\\\", \\\"6\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"4\\\", \\\",\\\", \\\"5\\\", \\\",\\\", \\\"6\\\", \\\",\\\", \
\\\"7\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"5\\\", \\\
\",\\\", \\\"6\\\", \\\",\\\", \\\"7\\\", \\\",\\\", \\\"8\\\"}], \
\\\"}\\\"}]}], \\\"}\\\"}]\\) \:4e0d\:662f\:4e00\:4e2a\:7b26\:53f7.\"",2,39,
   12,27771133902554023820,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849371312163534`*^9, 3.7849372309401703`*^9},
 CellLabel->
  "(\:8c03\:8bd5) \
\:6b63\:5728\:8ba1\:7b97In[42]:=",ExpressionUUID->"6c6b0fac-c09d-4898-b2da-\
04755c55cc66"],

Cell[BoxData[
 TemplateBox[{
  "Set","setps",
   "\"\:90e8\:5206\:8d4b\:503c\:4e2d\:7684 \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"2\\\", \\\",\\\", \\\"3\\\", \
\\\",\\\", \\\"4\\\", \\\",\\\", \\\"5\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"3\\\", \\\",\\\", \\\"4\\\", \\\",\\\", \
\\\"5\\\", \\\",\\\", \\\"6\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"4\\\", \\\",\\\", \\\"5\\\", \\\",\\\", \\\"6\\\", \\\",\\\", \
\\\"7\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"5\\\", \\\
\",\\\", \\\"6\\\", \\\",\\\", \\\"7\\\", \\\",\\\", \\\"8\\\"}], \
\\\"}\\\"}]}], \\\"}\\\"}]\\) \:4e0d\:662f\:4e00\:4e2a\:7b26\:53f7.\"",2,39,
   13,27771133902554023820,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849371312163534`*^9, 3.7849372309880037`*^9},
 CellLabel->
  "(\:8c03\:8bd5) \
\:6b63\:5728\:8ba1\:7b97In[42]:=",ExpressionUUID->"3f3d880b-b69e-4289-b979-\
000b14ca55e6"],

Cell[BoxData[
 TemplateBox[{
  "Set","setps",
   "\"\:90e8\:5206\:8d4b\:503c\:4e2d\:7684 \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"2\\\", \\\",\\\", \\\"3\\\", \
\\\",\\\", \\\"4\\\", \\\",\\\", \\\"5\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"3\\\", \\\",\\\", \\\"4\\\", \\\",\\\", \
\\\"5\\\", \\\",\\\", \\\"6\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"4\\\", \\\",\\\", \\\"5\\\", \\\",\\\", \\\"6\\\", \\\",\\\", \
\\\"7\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"5\\\", \\\
\",\\\", \\\"6\\\", \\\",\\\", \\\"7\\\", \\\",\\\", \\\"8\\\"}], \
\\\"}\\\"}]}], \\\"}\\\"}]\\) \:4e0d\:662f\:4e00\:4e2a\:7b26\:53f7.\"",2,39,
   14,27771133902554023820,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849371312163534`*^9, 3.7849372310448523`*^9},
 CellLabel->
  "(\:8c03\:8bd5) \
\:6b63\:5728\:8ba1\:7b97In[42]:=",ExpressionUUID->"7a0655be-b079-4f0d-93e8-\
5ea87541f49b"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"\:5728\:672c\:6b21\:8ba1\:7b97\:4e2d\:ff0c\\!\\(\\*StyleBox[RowBox[{\\\"\
Set\\\", \\\"::\\\", \\\"setps\\\"}], \\\"MessageName\\\"]\\) \:7684\:8fdb\
\:4e00\:6b65\:8f93\:51fa\:5c06\:88ab\:6291\:5236.\"",2,39,15,
   27771133902554023820,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849371312163534`*^9, 3.78493723109472*^9},
 CellLabel->
  "(\:8c03\:8bd5) \
\:6b63\:5728\:8ba1\:7b97In[42]:=",ExpressionUUID->"8fd2888e-abb6-4167-a360-\
77f3837d1d2b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "+", "1"}]], "Input",
 CellChangeTimes->{{3.7849372830042353`*^9, 3.7849372837073154`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"147928e2-2169-4390-922b-bd4639e2aad9"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.784937284184042*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"c3d9e9a5-5b61-41e9-9b26-8c9ac4a98314"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GuassJordon", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.7849372919274592`*^9, 3.7849372949114385`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"a335c38c-510d-46cc-91f7-e402e0ab3019"],

Cell[BoxData[
 TemplateBox[{
  "Set","setps",
   "\"\:90e8\:5206\:8d4b\:503c\:4e2d\:7684 \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"2\\\", \\\",\\\", \\\"3\\\", \
\\\",\\\", \\\"4\\\", \\\",\\\", \\\"5\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"3\\\", \\\",\\\", \\\"4\\\", \\\",\\\", \
\\\"5\\\", \\\",\\\", \\\"6\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"4\\\", \\\",\\\", \\\"5\\\", \\\",\\\", \\\"6\\\", \\\",\\\", \
\\\"7\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"5\\\", \\\
\",\\\", \\\"6\\\", \\\",\\\", \\\"7\\\", \\\",\\\", \\\"8\\\"}], \
\\\"}\\\"}]}], \\\"}\\\"}]\\) \:4e0d\:662f\:4e00\:4e2a\:7b26\:53f7.\"",2,41,
   16,27771133902554023820,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849372955866346`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[41]:=",ExpressionUUID->"76583915-f1d0-4480-8bc3-\
8b5c197aa4ff"],

Cell[BoxData[
 TemplateBox[{
  "Set","setps",
   "\"\:90e8\:5206\:8d4b\:503c\:4e2d\:7684 \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"2\\\", \\\",\\\", \\\"3\\\", \
\\\",\\\", \\\"4\\\", \\\",\\\", \\\"5\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"3\\\", \\\",\\\", \\\"4\\\", \\\",\\\", \
\\\"5\\\", \\\",\\\", \\\"6\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"4\\\", \\\",\\\", \\\"5\\\", \\\",\\\", \\\"6\\\", \\\",\\\", \
\\\"7\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"5\\\", \\\
\",\\\", \\\"6\\\", \\\",\\\", \\\"7\\\", \\\",\\\", \\\"8\\\"}], \
\\\"}\\\"}]}], \\\"}\\\"}]\\) \:4e0d\:662f\:4e00\:4e2a\:7b26\:53f7.\"",2,41,
   17,27771133902554023820,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849372956115675`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[41]:=",ExpressionUUID->"f9b557fb-ff32-4286-b14c-\
6cf29b46f3bc"],

Cell[BoxData[
 TemplateBox[{
  "Set","setps",
   "\"\:90e8\:5206\:8d4b\:503c\:4e2d\:7684 \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"2\\\", \\\",\\\", \\\"3\\\", \
\\\",\\\", \\\"4\\\", \\\",\\\", \\\"5\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"3\\\", \\\",\\\", \\\"4\\\", \\\",\\\", \
\\\"5\\\", \\\",\\\", \\\"6\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"4\\\", \\\",\\\", \\\"5\\\", \\\",\\\", \\\"6\\\", \\\",\\\", \
\\\"7\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"5\\\", \\\
\",\\\", \\\"6\\\", \\\",\\\", \\\"7\\\", \\\",\\\", \\\"8\\\"}], \
\\\"}\\\"}]}], \\\"}\\\"}]\\) \:4e0d\:662f\:4e00\:4e2a\:7b26\:53f7.\"",2,41,
   18,27771133902554023820,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849372956714087`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[41]:=",ExpressionUUID->"250c5043-f0bb-4f3b-9726-\
87bf0f2e5a1b"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"\:5728\:672c\:6b21\:8ba1\:7b97\:4e2d\:ff0c\\!\\(\\*StyleBox[RowBox[{\\\"\
Set\\\", \\\"::\\\", \\\"setps\\\"}], \\\"MessageName\\\"]\\) \:7684\:8fdb\
\:4e00\:6b65\:8f93\:51fa\:5c06\:88ab\:6291\:5236.\"",2,41,19,
   27771133902554023820,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7849372957302494`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[41]:=",ExpressionUUID->"8078d798-0686-481d-a9a7-\
7f35ae914bf9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "A"}]], "Input",
 CellChangeTimes->{{3.7849376400647497`*^9, 3.784937656918663*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"f7258f44-82d0-4466-9965-3b367d1b495c"],

Cell[CellGroupData[{

Cell["Global`A", "Print", "PrintUsage",
 CellChangeTimes->{3.7849376576706567`*^9},
 CellTags->
  "Info443784966457-2297966",ExpressionUUID->"b059839e-8bd9-4a1f-9031-\
65c002ac5efc"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{"A", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "6", ",", "7", ",", "8"}], "}"}]}], "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[$CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{3.784937657758418*^9},
 CellTags->
  "Info443784966457-2297966",ExpressionUUID->"b21db966-76d6-4865-9c87-\
c1e479d875ca"]
}, Open  ]]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"4a3d0a17-7eea-44d5-8b1e-d9c3f9c0a5ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell["LU\:5206\:89e3\:ff08\:6210\:529f\:ff09", "Section",
 CellChangeTimes->{{3.784957230243584*^9, 3.784957232576321*^9}, {
  3.785014398912184*^9, 
  3.7850144010298743`*^9}},ExpressionUUID->"7dc270da-7904-46a7-a238-\
c672007f8a29"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LUSolver", "[", 
   RowBox[{"A_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "c", ",", "r", ",", "U", ",", "L", ",", "k", ",", "i", ",", "j", ",", 
      "i1", ",", "i2", ",", "x", ",", "y", ",", "get1", ",", "get2", ",", 
      "n"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{"First", "[", 
       RowBox[{"Dimensions", "[", "A", "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"U", "=", 
      RowBox[{"UpperTriangularize", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"i", "+", "j"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "c"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "c"}], "}"}]}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"L", "=", 
      RowBox[{"IdentityMatrix", "[", "c", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"U", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "All"}], "]"}], "]"}], "=", 
      RowBox[{"A", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "All"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"L", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}], "/", 
       RowBox[{"U", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"L", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "1"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"r", "=", "2"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"r", "<", 
        RowBox[{"c", "+", "1"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i1", "=", "r"}], ";", 
          RowBox[{"While", "[", 
           RowBox[{
            RowBox[{"i1", "<", "c"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"U", "[", 
                 RowBox[{"[", 
                  RowBox[{"r", ",", "i1"}], "]"}], "]"}], "=", 
                RowBox[{
                 RowBox[{"A", "[", 
                  RowBox[{"[", 
                   RowBox[{"r", ",", "i1"}], "]"}], "]"}], "-", 
                 RowBox[{"Sum", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"L", "[", 
                    RowBox[{"[", 
                    RowBox[{"r", ",", "k"}], "]"}], "]"}], "*", 
                    RowBox[{"U", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ",", 
                   RowBox[{"{", 
                    RowBox[{"k", ",", "1", ",", 
                    RowBox[{"r", "-", "1"}]}], "}"}]}], "]"}]}]}], ",", 
               RowBox[{
                RowBox[{"i2", "=", 
                 RowBox[{"r", "+", "1"}]}], ";", 
                RowBox[{
                 RowBox[{"L", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"i1", "+", "1"}], ",", "r"}], "]"}], "]"}], "=", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i1", "+", "1"}], ",", "r"}], "]"}], "]"}], "-", 
                    RowBox[{"Sum", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"L", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i1", "+", "1"}], ",", "k"}], "]"}], "]"}], "*", 
                    RowBox[{"U", "[", 
                    RowBox[{"[", 
                    RowBox[{"k", ",", "r"}], "]"}], "]"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"k", ",", "1", ",", 
                    RowBox[{"r", "-", "1"}]}], "}"}]}], "]"}]}], ")"}], "/", 
                  RowBox[{"U", "[", 
                   RowBox[{"[", 
                    RowBox[{"r", ",", "r"}], "]"}], "]"}]}]}]}]}], "}"}], ";", 
             RowBox[{"i1", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"U", "[", 
            RowBox[{"[", 
             RowBox[{"r", ",", "c"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{"r", ",", "c"}], "]"}], "]"}], "-", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"L", "[", 
                RowBox[{"[", 
                 RowBox[{"r", ",", "k"}], "]"}], "]"}], "*", 
               RowBox[{"U", "[", 
                RowBox[{"[", 
                 RowBox[{"k", ",", "c"}], "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"k", ",", "1", ",", 
                RowBox[{"r", "-", "1"}]}], "}"}]}], "]"}]}]}]}], "}"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"r", "++"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"y", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"i", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"x", "=", "y"}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "=", 
      RowBox[{"b", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"i", "=", "2"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"i", "<", 
        RowBox[{"c", "+", "1"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"y", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"b", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "-", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"L", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "k"}], "]"}], "]"}], "*", 
             RowBox[{"y", "[", 
              RowBox[{"[", "k", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "1", ",", 
              RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}]}]}], ";", 
        RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"x", "[", 
       RowBox[{"[", "c", "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"y", "[", 
        RowBox[{"[", "c", "]"}], "]"}], "/", 
       RowBox[{"U", "[", 
        RowBox[{"[", 
         RowBox[{"c", ",", "c"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"j", "=", 
      RowBox[{"c", "-", "1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"j", ">", "0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "[", 
          RowBox[{"[", "j", "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"y", "[", 
             RowBox[{"[", "j", "]"}], "]"}], "-", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"U", "[", 
                RowBox[{"[", 
                 RowBox[{"j", ",", "k"}], "]"}], "]"}], "*", 
               RowBox[{"x", "[", 
                RowBox[{"[", "k", "]"}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"k", ",", 
                RowBox[{"j", "+", "1"}], ",", "c"}], "}"}]}], "]"}]}], ")"}], 
          "/", 
          RowBox[{"U", "[", 
           RowBox[{"[", 
            RowBox[{"j", ",", "j"}], "]"}], "]"}]}]}], ";", 
        RowBox[{"j", "--"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "L", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.784957240735157*^9, 3.7849573236429157`*^9}, {
   3.784957356658174*^9, 3.784957418386125*^9}, {3.7849574831137657`*^9, 
   3.7849574862133837`*^9}, {3.784957539782654*^9, 3.784957630196658*^9}, {
   3.7849576701592307`*^9, 3.78495769438062*^9}, {3.784957748437292*^9, 
   3.7849578073958254`*^9}, {3.784957898782668*^9, 3.7849579429238234`*^9}, {
   3.7849580516797895`*^9, 3.7849583089603543`*^9}, 3.784958480061994*^9, {
   3.784958539053508*^9, 3.784958554390858*^9}, {3.784958608674875*^9, 
   3.7849586850010967`*^9}, {3.7849588188217363`*^9, 
   3.7849588912969446`*^9}, {3.7849589226804085`*^9, 3.784958923012514*^9}, {
   3.784964343680683*^9, 3.784964390711237*^9}, {3.784964806321206*^9, 
   3.7849648067520556`*^9}, {3.7849649165645485`*^9, 
   3.7849649179318595`*^9}, {3.784965120668713*^9, 3.7849651211992884`*^9}, {
   3.7849652585074644`*^9, 3.7849652618754635`*^9}, {3.784965317444084*^9, 
   3.7849653276846943`*^9}, {3.7849653837288957`*^9, 
   3.7849653843910856`*^9}, {3.784966126253109*^9, 3.7849661317803364`*^9}, {
   3.7849664497283125`*^9, 3.784966477944487*^9}, {3.7849665116027822`*^9, 
   3.7849665146954756`*^9}, {3.784966740639676*^9, 3.78496677070581*^9}, {
   3.7849676481785936`*^9, 3.784967666501465*^9}, {3.784967733125464*^9, 
   3.7849677409659104`*^9}, {3.784967771191702*^9, 3.784967840376754*^9}, {
   3.7849678709038243`*^9, 3.7849678981738105`*^9}, {3.7849679424439864`*^9, 
   3.784968064364593*^9}, {3.784968127790371*^9, 3.7849681279070597`*^9}, {
   3.7849682251937656`*^9, 3.7849682259557686`*^9}, {3.7849683195669107`*^9, 
   3.7849683200456514`*^9}, 3.7850143631283855`*^9, {3.7850185373331223`*^9, 
   3.7850185649014287`*^9}, {3.785018601088309*^9, 3.7850187040384426`*^9}, {
   3.7850187471860757`*^9, 3.785018851838418*^9}, {3.7850188993466597`*^9, 
   3.7850189629597087`*^9}, {3.785026024196285*^9, 3.7850260422032113`*^9}, {
   3.7850324775849504`*^9, 3.7850324781617804`*^9}, 3.785034596949682*^9, {
   3.7850626415723076`*^9, 3.78506264268538*^9}, {3.785062725877143*^9, 
   3.7850627269198976`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"fccd78d8-6fa9-494f-b6bd-b416140d2cc9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LUSolver", "[", 
   RowBox[{"B", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.785018886045704*^9, 3.785018894245817*^9}, {
  3.785062668786229*^9, 3.7850627102312455`*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"0158970e-5fe0-4ebf-9b68-52ff9102c076"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"4", "1", "0"},
     {"2", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.785018894604823*^9, 3.785018954208102*^9}, {
   3.7850260174068356`*^9, 3.7850260467739525`*^9}, 3.785032493294653*^9, 
   3.785062658126546*^9, {3.7850626908747005`*^9, 3.7850627316156683`*^9}},
 CellLabel->
  "Out[68]//MatrixForm=",ExpressionUUID->"0370e442-86d8-47f1-9141-\
f81fa417245c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.785018911370026*^9, 3.785018913850398*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"74bd8fa4-c043-47cb-a1dd-b3a69a153bc3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "2", "1"},
     {"4", "2", "2"},
     {"2", "4", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7850189142343674`*^9, 3.785032488679718*^9},
 CellLabel->
  "Out[50]//MatrixForm=",ExpressionUUID->"1525ec55-0639-479d-beb8-\
bc36b964a47c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8fed\:4ee3\:6cd5", "Section",
 CellChangeTimes->{{3.7849798719556875`*^9, 
  3.784979873504547*^9}},ExpressionUUID->"fe30c5ce-c915-454f-a43f-\
78c1fa027978"],

Cell[CellGroupData[{

Cell["\:96c5\:514b\:6bd4\:8fed\:4ee3\:6cd5\:ff08\:6210\:529f\:ff09", \
"Subsection",
 CellChangeTimes->{{3.7849798815470486`*^9, 3.7849798840244284`*^9}, {
  3.784984699065511*^9, 
  3.7849847044531093`*^9}},ExpressionUUID->"11972b81-74da-4116-9d8f-\
80a14e5423ba"],

Cell[BoxData[
 RowBox[{
  RowBox[{"JacobiNest", "[", 
   RowBox[{"A_", ",", "b_", ",", "ops_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"L", ",", "U", ",", "d", ",", 
      RowBox[{"f", "=", "b"}], ",", "y", ",", "B", ",", "rand", ",", "j"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"rand", "=", 
      RowBox[{"RandomReal", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Length", "[", "b", "]"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"j", "=", "rand"}], ";", "\[IndentingNewLine]", 
     RowBox[{"U", "=", 
      RowBox[{"UpperTriangularize", "[", 
       RowBox[{"A", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"d", "=", 
      RowBox[{"DiagonalMatrix", "[", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"1.", "/", "#"}], "&"}], ",", 
         RowBox[{"Diagonal", "[", "A", "]"}]}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"L", "=", 
      RowBox[{"LowerTriangularize", "[", 
       RowBox[{"A", ",", 
        RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"y", "=", 
      RowBox[{"NestWhile", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"d", ".", 
          RowBox[{"(", 
           RowBox[{"f", "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"L", "+", "U"}], ")"}], ".", "#"}]}], ")"}]}], "&"}], 
        ",", "j", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"Norm", "[", 
             RowBox[{"#1", "-", "#2"}], "]"}], "]"}], ">", "ops"}], ")"}], 
         "&"}], ",", "2"}], "]"}]}], ";", 
     RowBox[{"Return", "[", "y", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7849799134268684`*^9, 3.78497997247983*^9}, {
   3.7849800347872915`*^9, 3.7849803472235804`*^9}, {3.784980388215968*^9, 
   3.784980395033868*^9}, {3.7849845371728234`*^9, 3.784984540623559*^9}, {
   3.7860042290057216`*^9, 3.786004230028984*^9}, {3.7860045522819633`*^9, 
   3.786004552831494*^9}, {3.7860061521111355`*^9, 3.7860061521610394`*^9}, {
   3.7860069391779127`*^9, 3.786007036436105*^9}, {3.7860076137013164`*^9, 
   3.7860077541129932`*^9}, 3.7860078235223675`*^9, {3.7860078644432297`*^9, 
   3.786007865420576*^9}, {3.786008453845993*^9, 3.786008458200314*^9}, {
   3.7860675637248373`*^9, 3.7860676175953913`*^9}, {3.786067685338316*^9, 
   3.7860676857950563`*^9}, {3.786069386877294*^9, 3.7860694029428234`*^9}, {
   3.7860694714545746`*^9, 3.7860694721158056`*^9}, {3.7860697228338594`*^9, 
   3.7860697260063405`*^9}, {3.7872041551273117`*^9, 
   3.7872041820887036`*^9}},ExpressionUUID->"a836cddf-f9bd-46dc-890d-\
9927e8f88359"],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"8b23e3fd-64da-4950-8f4d-4b6122f76f53"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:9ad8\:65af-\:8d5b\:5fb7\:5c14\:8fed\:4ee3\:6cd5\:ff08\:6210\:529f\
\:ff09", "Subsection",
 CellChangeTimes->{{3.784991822967889*^9, 3.784991831836345*^9}, {
  3.7850099408116064`*^9, 
  3.7850099457892995`*^9}},ExpressionUUID->"cf93e2ed-da9c-4f1f-9613-\
2cf4f72521d4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GuassSeidle", "[", 
   RowBox[{"A_", ",", "b_", ",", "rand_", ",", "ops_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"c", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Dimensions", "[", "A", "]"}], "]"}]}], ",", "x2", ",", "x1", 
      ",", "n"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"x1", "=", "rand"}], ";", "\[IndentingNewLine]", 
     RowBox[{"n", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"x2", "=", 
      RowBox[{"rand", "+", "9."}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"Norm", "[", 
          RowBox[{"x1", "-", "x2"}], "]"}], "]"}], ">", "ops"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x2", "=", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"b", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "-", 
                RowBox[{"Sum", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", 
                   RowBox[{"x2", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], ",", 
                  RowBox[{"{", 
                   RowBox[{"j", ",", "1", ",", 
                    RowBox[{"i", "-", "1"}]}], "}"}]}], "]"}], "-", 
                RowBox[{"Sum", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", 
                   RowBox[{"x1", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], ",", 
                  RowBox[{"{", 
                   RowBox[{"j", ",", 
                    RowBox[{"i", "+", "1"}], ",", "c"}], "}"}]}], "]"}]}], 
               ")"}], "/", 
              RowBox[{"A", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "i"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x1", ",", "x2"}], "}"}], "=", 
           RowBox[{"{", 
            RowBox[{"x2", ",", "x1"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
         "}"}], ";", "\[IndentingNewLine]", 
        RowBox[{"n", "++"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "x1", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.784991845763427*^9, 3.78499210056188*^9}, 
   3.7849936327785997`*^9, {3.7849936767101264`*^9, 3.7849940433122053`*^9}, {
   3.7849940789299912`*^9, 3.784994245581234*^9}, {3.784994304625401*^9, 
   3.784994319449773*^9}, {3.7849943608036065`*^9, 3.7849943610339923`*^9}, {
   3.784994457217993*^9, 3.784994561675762*^9}, {3.784994591758393*^9, 
   3.7849945988992605`*^9}, {3.7849947031750603`*^9, 
   3.7849947060134335`*^9}, {3.785008835704487*^9, 3.7850089038387175`*^9}, {
   3.7850089817321806`*^9, 3.7850089832640824`*^9}, 3.7850090403276587`*^9, {
   3.7850093197880754`*^9, 3.785009339985087*^9}, {3.785009924773965*^9, 
   3.785009925585795*^9}, {3.7860649174902782`*^9, 3.78606491867108*^9}, {
   3.786069841410174*^9, 3.786069842469341*^9}, {3.7860698895085783`*^9, 
   3.7860698899863014`*^9}, 3.7872049043703394`*^9, {3.78720495172923*^9, 
   3.787204956257121*^9}},
 CellLabel->
  "In[279]:=",ExpressionUUID->"428720ac-313d-4c8c-9ca6-7df662d19f4e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "A"}]], "Input",
 CellChangeTimes->{{3.7872040734696717`*^9, 3.7872040763070517`*^9}},
 CellLabel->
  "In[263]:=",ExpressionUUID->"ffd35c6c-6adb-41f1-afa5-db0b913859f7"],

Cell[CellGroupData[{

Cell["Global`A", "Print", "PrintUsage",
 CellChangeTimes->{3.787204076953325*^9},
 CellTags->
  "Info2633787232876-4430221",ExpressionUUID->"2d57291d-9dda-49f3-921b-\
9f4b729cea9a"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{"A", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "7", ",", "8"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"9", ",", "7", ",", "3"}], "}"}]}], "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[$CellContext`A],
  Editable->False]], "Print",
 CellChangeTimes->{3.787204077014207*^9},
 CellTags->
  "Info2633787232876-4430221",ExpressionUUID->"a8771609-c782-4e29-93e3-\
b5bccdc065aa"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GuassSeidle", "[", 
   RowBox[{"A", ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "0.01"}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.7860649253302717`*^9, 3.7860649454833746`*^9}, {
  3.786069900578972*^9, 3.7860699010836234`*^9}},
 CellLabel->
  "In[264]:=",ExpressionUUID->"f1091f32-74ba-45ff-afc6-9bec14412c3b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "4.02768706315321520031355061`15.954589770191005*^392"}], ",", 
   RowBox[{"-", "1.64651562867203856925973027`15.954589770191005*^392"}], ",", 
   RowBox[{"-", "3.85927391602003779359134435`15.954589770191005*^392"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.7860649460977316`*^9, {3.7860698533193617`*^9, 3.7860698563183417`*^9}, {
   3.786069893696415*^9, 3.786069901766795*^9}, 3.7872040865092745`*^9},
 CellLabel->
  "Out[264]=",ExpressionUUID->"1efbc495-f6cc-449b-995b-9d1421a87e70"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"LinearSolve", "[", 
  RowBox[{"A", ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7860699083556805`*^9, 3.7860699246850104`*^9}},
 CellLabel->
  "In[626]:=",ExpressionUUID->"5e6bbb72-3748-4426-bbab-8975adfdea76"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    FractionBox["57", "370"], ",", 
    FractionBox["62", "185"], ",", 
    FractionBox["103", "370"]}], "}"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.7860699274576344`*^9, 3.7860699279692273`*^9}},
 CellLabel->
  "In[627]:=",ExpressionUUID->"127aebdb-66a3-44a2-a0b0-b058bd4f8b66"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.15405405405405406`", ",", "0.33513513513513515`", ",", 
   "0.27837837837837837`"}], "}"}]], "Output",
 CellChangeTimes->{3.786069929133115*^9},
 CellLabel->
  "Out[627]=",ExpressionUUID->"a2aaddc1-aa69-4f6c-a862-90a772fab1ba"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 4},ExpressionUUID->"a8a56f81-9048-48ba-8203-1f142d98a463"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8ffd\:8d76\:6cd5\:ff08\:6210\:529f\:ff09", "Section",
 CellChangeTimes->{{3.78504008072847*^9, 
  3.785040088514326*^9}},ExpressionUUID->"ee8cff17-c5b1-471a-8c4f-\
77f37ed1e380"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Chasing", "[", 
   RowBox[{"A_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "c", ",", "d", ",", "u", ",", "l", ",", "i", ",", "n", ",", "x", ",", 
      "k"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"c", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Dimensions", "[", "A", "]"}], "//", "Flatten"}], "//", 
       "First"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"d", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "i"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"u", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "-", "1"}], ",", "i"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "2", ",", "c"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"l", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", 
           RowBox[{"i", "+", "1"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"c", "-", "1"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"i", "=", "2"}], ";", "\[IndentingNewLine]", 
     RowBox[{"k", "=", "b"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"i", "<", 
        RowBox[{"c", "+", "1"}]}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"l", "[", 
            RowBox[{"[", 
             RowBox[{"i", "-", "1"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"l", "[", 
             RowBox[{"[", 
              RowBox[{"i", "-", "1"}], "]"}], "]"}], "/", 
            RowBox[{"d", "[", 
             RowBox[{"[", 
              RowBox[{"i", "-", "1"}], "]"}], "]"}]}]}], ";", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"d", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "-", 
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}], "*", 
             RowBox[{"l", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}]}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"k", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"k", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "-", 
            RowBox[{
             RowBox[{"k", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}], "*", 
             RowBox[{"l", "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}]}]}]}]}], "}"}], ";", 
        RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"n", "=", 
      RowBox[{"c", "-", "1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"x", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"i", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "c"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"x", "[", 
       RowBox[{"[", "c", "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"k", "[", 
        RowBox[{"[", "c", "]"}], "]"}], "/", 
       RowBox[{"d", "[", 
        RowBox[{"[", "c", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"n", ">", "0"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "n", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"k", "[", 
              RowBox[{"[", "n", "]"}], "]"}], "-", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"[", "n", "]"}], "]"}], "*", 
              RowBox[{"x", "[", 
               RowBox[{"[", 
                RowBox[{"n", "+", "1"}], "]"}], "]"}]}]}], ")"}], "/", 
           RowBox[{"d", "[", 
            RowBox[{"[", "n", "]"}], "]"}]}]}], "}"}], ";", 
        RowBox[{"n", "--"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "x", "]"}]}]}], "]"}]}]], "Input",
 CellLabel->"In[55]:=",ExpressionUUID->"d36a21cb-d63b-46cc-a7b6-5c0a7559acaa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<\:8ffd\:8d76\:6cd5\:6559\:7a0b\>\"", ",", 
   "\"\<https://blog.csdn.net/u010450214/article/details/50170623\>\""}], 
  "]"}]], "Code",
 CellChangeTimes->{{3.7850403074984903`*^9, 3.7850403290289497`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"d186b166-5644-4af8-ad06-893747e49857"],

Cell[BoxData[
 TemplateBox[{
  "\"\:8ffd\:8d76\:6cd5\:6559\:7a0b\"",
   "https://blog.csdn.net/u010450214/article/details/50170623"},
  "HyperlinkURL"]], "Output",
 CellChangeTimes->{3.7850403307960896`*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"b911a8d7-93ab-4513-ab4b-43fd800642a2"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{638, 628},
WindowMargins->{{-7, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.3199999999999, 841.92}},
Magnification:>0.9 Inherited,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info443784966457-2297966"->{
  Cell[116951, 3271, 182, 4, 42, "Print",ExpressionUUID->"b059839e-8bd9-4a1f-9031-65c002ac5efc",
   CellTags->"Info443784966457-2297966"],
  Cell[117136, 3277, 1225, 33, 21, "Print",ExpressionUUID->"b21db966-76d6-4865-9c87-c1e479d875ca",
   CellTags->"Info443784966457-2297966"]},
 "Info2633787232876-4430221"->{
  Cell[139617, 3867, 181, 4, 42, "Print",ExpressionUUID->"2d57291d-9dda-49f3-921b-9f4b729cea9a",
   CellTags->"Info2633787232876-4430221"],
  Cell[139801, 3873, 1101, 31, 21, "Print",ExpressionUUID->"a8771609-c782-4e29-93e3-b5bccdc065aa",
   CellTags->"Info2633787232876-4430221"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info443784966457-2297966", 149358, 4165},
 {"Info2633787232876-4430221", 149671, 4170}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 225, 4, 87, "Title",ExpressionUUID->"387214d1-1e18-4949-9b65-e65b06e45bde"],
Cell[CellGroupData[{
Cell[830, 30, 170, 3, 48, "Subsection",ExpressionUUID->"a681020c-e937-4ada-a0f4-c55250e1a068"],
Cell[1003, 35, 221, 4, 42, "Input",ExpressionUUID->"4e7136fb-fd55-4118-81eb-ad38c1aed691"],
Cell[1227, 41, 565, 10, 42, "Input",ExpressionUUID->"8c3df855-2326-4123-b413-6ecda834c9e6"],
Cell[1795, 53, 269, 6, 42, "Input",ExpressionUUID->"9415e579-60c6-4f6e-bc24-98a229278618"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2101, 64, 234, 4, 48, "Subsection",ExpressionUUID->"19d043a1-ef9f-4430-bb90-d311644ee786"],
Cell[CellGroupData[{
Cell[2360, 72, 393, 9, 42, "Input",ExpressionUUID->"692a43e4-99c0-4080-9a10-3987d013ee9d"],
Cell[2756, 83, 8497, 217, 304, "Output",ExpressionUUID->"22a6e1c4-b6dc-46cf-974f-e8027c5f6c22"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11290, 305, 291, 6, 26, "Input",ExpressionUUID->"306b3d63-a4d7-42c6-942e-1af5a80ecb8f"],
Cell[11584, 313, 177, 2, 30, "Output",ExpressionUUID->"48357413-e4ba-410e-9b58-842c0e30bf92"]
}, Open  ]],
Cell[11776, 318, 311, 8, 26, "Input",ExpressionUUID->"050ff030-c976-43c0-9f01-037a089f80a3"],
Cell[CellGroupData[{
Cell[12112, 330, 1136, 27, 42, "Input",ExpressionUUID->"c0bf5603-9132-4efa-8926-39479134e76e"],
Cell[13251, 359, 7777, 206, 88, "Output",ExpressionUUID->"bce08097-bb35-45e8-b04b-f3e25b06b801"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21065, 570, 717, 22, 42, "Input",ExpressionUUID->"0d5704c8-c4e9-48bc-97c8-fd8e8d1e7162"],
Cell[21785, 594, 7780, 207, 88, "Output",ExpressionUUID->"4e37b07b-9850-4a49-bdd4-e671854fffd2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29602, 806, 148, 2, 26, "Input",ExpressionUUID->"13473d3c-412e-4f55-84d1-fe47b491aad2"],
Cell[29753, 810, 177, 2, 30, "Output",ExpressionUUID->"01651f2f-d62a-4dc2-9f23-bae856db9b69"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29967, 817, 284, 7, 42, "Input",ExpressionUUID->"7ca89134-b334-43de-906b-d6cf47e29a09"],
Cell[30254, 826, 8342, 214, 268, "Output",ExpressionUUID->"ccb40644-0a15-48a5-8670-b03a08df6133"]
}, Open  ]],
Cell[38611, 1043, 313, 8, 42, "Input",ExpressionUUID->"710d3990-e1d5-4bfb-90ab-e6f381fc03d7"],
Cell[CellGroupData[{
Cell[38949, 1055, 381, 10, 42, "Input",ExpressionUUID->"8f594a4a-e11d-4e3a-bdf9-345ca102c11b"],
Cell[39333, 1067, 8332, 214, 304, "Output",ExpressionUUID->"29b324d0-a8c3-4cf9-a39f-5c8b55f47244"]
}, Open  ]],
Cell[47680, 1284, 329, 10, 7, "Text",ExpressionUUID->"1cbcbaca-79a2-4869-970e-b38ad96f1b30"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48046, 1299, 174, 3, 48, "Subsection",ExpressionUUID->"3a365165-e6ee-4dd4-949d-00eb5ea16d03"],
Cell[48223, 1304, 848, 23, 60, "Input",ExpressionUUID->"0dd43d34-d04a-4469-90ac-c1b22fa58964"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49108, 1332, 224, 4, 48, "Subsection",ExpressionUUID->"07e0ac30-fc90-42c9-b8f9-414f610e6ee3"],
Cell[49335, 1338, 1411, 35, 95, "Input",ExpressionUUID->"a5d8cb50-7d1c-41c3-b6c2-521ff113c5e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50783, 1378, 180, 3, 48, "Subsection",ExpressionUUID->"fedb157f-a6f2-4dfb-aba7-f67160fac977"],
Cell[50966, 1383, 290, 7, 26, "Input",ExpressionUUID->"6f9cc956-88e3-4719-a057-f226441a2b93"],
Cell[51259, 1392, 167, 3, 42, "Input",ExpressionUUID->"f2e42178-38f6-4e8b-a270-e0cdf3f43da6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51463, 1400, 273, 5, 48, "Subsection",ExpressionUUID->"e7da8ee4-c508-4885-a5d3-ba4a5a2200b9"],
Cell[51739, 1407, 10147, 245, 838, "Input",ExpressionUUID->"2d99340c-a111-4a5a-9278-eec34749c9e2"],
Cell[CellGroupData[{
Cell[61911, 1656, 491, 12, 26, "Input",ExpressionUUID->"7fdb9677-243f-4ee6-bd52-75e31eea2ed4"],
Cell[62405, 1670, 383, 10, 30, "Output",ExpressionUUID->"f45051fb-43a9-46e8-b8ea-d78f658c7045"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62825, 1685, 406, 10, 26, "Input",ExpressionUUID->"bd83905e-5e1f-4c42-ace8-01cf168cac6d"],
Cell[63234, 1697, 383, 10, 30, "Output",ExpressionUUID->"d4e4b9c5-bef5-459f-8d6b-61fae7cb4ae4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63654, 1712, 206, 3, 42, "Input",ExpressionUUID->"9ae1e761-40d8-4e7c-bc07-52c4a7b38373"],
Cell[63863, 1717, 835, 23, 71, "Output",ExpressionUUID->"362b358e-aa9e-4634-8fb2-75bf72625d89"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64735, 1745, 244, 4, 42, "Input",ExpressionUUID->"a8c6f286-0201-443d-b725-7cee385711f7"],
Cell[64982, 1751, 808, 23, 71, "Output",ExpressionUUID->"caece61b-94a4-4110-b205-e1a95c8e33c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65827, 1779, 668, 17, 26, "Input",ExpressionUUID->"fcbec6d3-f06d-4944-9dc7-be037cc2968a"],
Cell[66498, 1798, 505, 13, 30, "Output",ExpressionUUID->"c360b0e9-5e4a-41b0-afdd-ce68747f444a"]
}, Open  ]],
Cell[67018, 1814, 525, 13, 26, "Input",ExpressionUUID->"5a7644c3-5a27-4992-83e6-274d90fe20d0"],
Cell[CellGroupData[{
Cell[67568, 1831, 344, 7, 42, "Input",ExpressionUUID->"4a2d71ed-3ecb-46c5-9073-e16c71ecb47b"],
Cell[67915, 1840, 1139, 31, 125, "Output",ExpressionUUID->"245338c6-4995-4f23-9036-d31f7c300f14"]
}, Open  ]],
Cell[69069, 1874, 3146, 93, 379, "Input",ExpressionUUID->"1794656f-5eea-4379-88a1-cddf48bcd50a"],
Cell[CellGroupData[{
Cell[72240, 1971, 154, 3, 26, "Input",ExpressionUUID->"dbd3d2e1-7429-4914-bb92-7c92516e5575"],
Cell[72397, 1976, 733, 21, 53, "Output",ExpressionUUID->"55a1e2d1-20df-4006-aa0a-21c1f05e607d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73167, 2002, 207, 4, 42, "Input",ExpressionUUID->"d7091cf2-60e6-41c0-b4e1-96ced93178c4"],
Cell[73377, 2008, 1233, 36, 138, "Output",ExpressionUUID->"e3303e26-c248-4019-b376-818a9bd8c631"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74647, 2049, 209, 4, 42, "Input",ExpressionUUID->"3d86fa82-5ee5-4ca4-84e3-a9b589efaee0"],
Cell[74859, 2055, 1107, 32, 185, "Output",ExpressionUUID->"a40221c2-cd1d-48e1-b3b4-966622faf7cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76003, 2092, 152, 3, 26, "Input",ExpressionUUID->"a38a513b-01d7-468a-b110-9f5680d17dee"],
Cell[76158, 2097, 781, 24, 71, "Output",ExpressionUUID->"0979f61f-8d30-4964-8b86-964cfe1a4000"]
}, Open  ]],
Cell[76954, 2124, 232, 5, 42, "Input",ExpressionUUID->"7b9ecdcb-9510-4c6c-bffd-68082bbbabfb"],
Cell[CellGroupData[{
Cell[77211, 2133, 667, 17, 26, "Input",ExpressionUUID->"e4000446-e457-4731-8400-b780f8976659"],
Cell[77881, 2152, 532, 13, 30, "Output",ExpressionUUID->"20624325-2ca5-4d3e-bc93-f9376f074731"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78450, 2170, 530, 13, 26, "Input",ExpressionUUID->"e690eccc-e500-48b5-a961-dd5eeb47684c"],
Cell[78983, 2185, 505, 13, 30, "Output",ExpressionUUID->"6997ff2a-081b-4edc-a44a-9b2b2438b907"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79525, 2203, 178, 3, 26, "Input",ExpressionUUID->"6d8c7175-fc9e-49df-a61f-387c3708f547"],
Cell[79706, 2208, 781, 22, 71, "Output",ExpressionUUID->"d4896145-c697-4405-afe5-66a5a2a2e476"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80524, 2235, 256, 5, 26, "Input",ExpressionUUID->"41596a15-46e7-4220-b2f1-1a7bf22bb67e"],
Cell[80783, 2242, 854, 25, 71, "Output",ExpressionUUID->"14eb36e8-5a43-4062-aa30-439fe474d44c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81674, 2272, 209, 4, 42, "Input",ExpressionUUID->"786fa10f-3061-43cd-a363-ffb025a9c24f"],
Cell[81886, 2278, 155, 3, 30, "Output",ExpressionUUID->"7324616a-9150-403f-bed8-282b7c5cec85"]
}, Open  ]],
Cell[82056, 2284, 205, 3, 42, "Input",ExpressionUUID->"9cab2115-5ed4-4656-8167-074d14289234"],
Cell[CellGroupData[{
Cell[82286, 2291, 196, 3, 26, "Input",ExpressionUUID->"290a15e7-6d49-45df-ab70-f6997ff7e3a1"],
Cell[82485, 2296, 758, 22, 71, "Output",ExpressionUUID->"bddc21ec-b39e-4b01-a3f8-d4367774828d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83280, 2323, 174, 3, 42, "Input",ExpressionUUID->"2342c193-e949-4d31-966e-63146180ed41"],
Cell[83457, 2328, 149, 2, 30, "Output",ExpressionUUID->"5ed53921-f283-4088-9df9-4852fb7ae653"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83643, 2335, 150, 2, 26, "Input",ExpressionUUID->"c8fe96bb-94ec-469c-9c4a-0f1c7608165e"],
Cell[83796, 2339, 756, 22, 71, "Output",ExpressionUUID->"0958587a-70a3-47b5-b90c-81a4417bd715"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84589, 2366, 213, 3, 26, "Input",ExpressionUUID->"00eeaa70-08a8-4209-9c11-453611135e19"],
Cell[84805, 2371, 460, 11, 24, "Message",ExpressionUUID->"79666c0d-5a04-47a8-b70b-53ca4c80980c"],
Cell[85268, 2384, 511, 11, 24, "Message",ExpressionUUID->"2fbcf506-acdd-4694-a9e7-f7b96fea4e53"],
Cell[85782, 2397, 508, 11, 24, "Message",ExpressionUUID->"5cdbec11-678a-4c01-8efa-705651cdf216"],
Cell[86293, 2410, 827, 25, 71, "Output",ExpressionUUID->"4da4b9fe-bd45-4388-85b1-e9d872998dd8"]
}, Open  ]],
Cell[87135, 2438, 149, 3, 45, "Input",ExpressionUUID->"9c3d4071-9613-467e-8719-1b074857c72a"],
Cell[CellGroupData[{
Cell[87309, 2445, 4399, 113, 432, "Input",ExpressionUUID->"5cc8c88e-077c-4ba0-9416-6233d793e5d3"],
Cell[91711, 2560, 403, 9, 40, "Message",ExpressionUUID->"41e08bbc-7d35-428a-b7ea-6ca4183e651c"],
Cell[92117, 2571, 431, 10, 24, "Message",ExpressionUUID->"5110a199-3105-42cb-83ac-83a7583d1751"],
Cell[92551, 2583, 433, 10, 24, "Message",ExpressionUUID->"ce39e225-21de-4255-bbfa-9aa463dda627"],
Cell[92987, 2595, 433, 10, 24, "Message",ExpressionUUID->"7f9c015f-696b-4a45-a0d0-eb5120baad86"],
Cell[93423, 2607, 520, 11, 24, "Message",ExpressionUUID->"72479341-8492-4aa4-9688-c705a21994c1"],
Cell[93946, 2620, 681, 18, 103, "Output",ExpressionUUID->"d619a68f-36d3-4445-b062-e64254e98c56"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94664, 2643, 457, 12, 42, "Input",ExpressionUUID->"6f497b16-d317-4766-93ac-75d10171b9b9"],
Cell[95124, 2657, 575, 13, 30, "Output",ExpressionUUID->"2ffac20b-09d5-463b-b2a6-1d6ec44a6669"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95736, 2675, 253, 5, 26, "Input",ExpressionUUID->"6a3c854d-148e-4aea-88bb-ac3d10c0552c"],
Cell[95992, 2682, 250, 5, 30, "Output",ExpressionUUID->"104f2cb0-cdc4-4b7f-9d81-ec5237ef8389"]
}, Open  ]],
Cell[96257, 2690, 760, 20, 166, "Input",ExpressionUUID->"817a8ec0-28a2-4149-87ff-b7c138bd8e38"],
Cell[CellGroupData[{
Cell[97042, 2714, 720, 22, 42, "Input",ExpressionUUID->"d86a250d-0147-4215-8761-2c2e3797ae9c"],
Cell[97765, 2738, 342, 10, 53, "Output",ExpressionUUID->"50687bdd-cfd4-432c-85d7-584706604e18"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98144, 2753, 150, 2, 26, "Input",ExpressionUUID->"f23e0e75-944e-4d81-91ac-309d3a0cfa2f"],
Cell[98297, 2757, 665, 18, 53, "Output",ExpressionUUID->"d8527b0d-60fa-4c5f-bc2f-c79d03998b7a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98999, 2780, 856, 22, 69, "Input",ExpressionUUID->"5c082d6b-de11-4649-ac80-848acc92a1b2"],
Cell[99858, 2804, 526, 12, 30, "Output",ExpressionUUID->"d4886e5d-86ea-4cc3-814a-fd171e936cbd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100421, 2821, 751, 20, 166, "Input",ExpressionUUID->"bc013b1c-4591-449f-a511-78e1aacea549"],
Cell[101175, 2843, 968, 26, 101, "Output",ExpressionUUID->"59ff9229-0613-4b0f-ae5d-cd9f3171951b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102180, 2874, 901, 28, 85, "Input",ExpressionUUID->"3c386726-0223-475e-9f87-e9046f45b065"],
Cell[103084, 2904, 1141, 37, 138, "Output",ExpressionUUID->"8237e49c-4f1b-4976-b0d5-498209da47fd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104262, 2946, 196, 3, 26, "Input",ExpressionUUID->"945933ef-f203-4f6f-a400-6e202fa2c27c"],
Cell[104461, 2951, 377, 9, 40, "Message",ExpressionUUID->"57011a9d-11fb-4f54-ae4e-d4aa5b453b83"],
Cell[104841, 2962, 163, 2, 30, "Output",ExpressionUUID->"905139d7-bf65-43fc-b147-f181ab36aeb0"]
}, Open  ]],
Cell[105019, 2967, 156, 3, 26, "Input",ExpressionUUID->"335e542e-06c1-4d24-b98f-6513d70db7dd"],
Cell[CellGroupData[{
Cell[105200, 2974, 208, 3, 42, "Input",ExpressionUUID->"0c2d23fe-1285-4603-82dc-12a707a6e4c9"],
Cell[105411, 2979, 1173, 37, 138, "Output",ExpressionUUID->"74f7150c-addb-49fa-9a72-4db3c781c1bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106621, 3021, 500, 13, 42, "Input",ExpressionUUID->"90ba0970-8c21-4cdf-a84f-d4efa35645df"],
Cell[107124, 3036, 676, 14, 30, "Output",ExpressionUUID->"78a6bb17-37a0-4eb6-b74a-e8b82be77f29"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107837, 3055, 259, 4, 42, "Input",ExpressionUUID->"abab5d15-bb6a-4e26-9844-73064a0426e9"],
Cell[108099, 3061, 862, 24, 86, "Output",ExpressionUUID->"28dc24a4-73c5-4b98-b772-afe5ec359a04"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108998, 3090, 233, 5, 26, "Input",ExpressionUUID->"90d7620c-0859-4333-a19d-306072e174ce"],
Cell[109234, 3097, 984, 18, 24, "Message",ExpressionUUID->"6c6b0fac-c09d-4898-b2da-04755c55cc66"],
Cell[110221, 3117, 984, 18, 24, "Message",ExpressionUUID->"3f3d880b-b69e-4289-b979-000b14ca55e6"],
Cell[111208, 3137, 984, 18, 24, "Message",ExpressionUUID->"7a0655be-b079-4f0d-93e8-5ea87541f49b"],
Cell[112195, 3157, 531, 12, 24, "Message",ExpressionUUID->"8fd2888e-abb6-4167-a360-77f3837d1d2b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112763, 3174, 198, 3, 26, "Input",ExpressionUUID->"147928e2-2169-4390-922b-bd4639e2aad9"],
Cell[112964, 3179, 149, 2, 30, "Output",ExpressionUUID->"c3d9e9a5-5b61-41e9-9b26-8c9ac4a98314"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113150, 3186, 213, 3, 26, "Input",ExpressionUUID->"a335c38c-510d-46cc-91f7-e402e0ab3019"],
Cell[113366, 3191, 943, 17, 24, "Message",ExpressionUUID->"76583915-f1d0-4480-8bc3-8b5c197aa4ff"],
Cell[114312, 3210, 943, 17, 24, "Message",ExpressionUUID->"f9b557fb-ff32-4286-b14c-6cf29b46f3bc"],
Cell[115258, 3229, 943, 17, 24, "Message",ExpressionUUID->"250c5043-f0bb-4f3b-9726-87bf0f2e5a1b"],
Cell[116204, 3248, 493, 11, 24, "Message",ExpressionUUID->"8078d798-0686-481d-a9a7-7f35ae914bf9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116734, 3264, 192, 3, 26, "Input",ExpressionUUID->"f7258f44-82d0-4466-9965-3b367d1b495c"],
Cell[CellGroupData[{
Cell[116951, 3271, 182, 4, 42, "Print",ExpressionUUID->"b059839e-8bd9-4a1f-9031-65c002ac5efc",
 CellTags->"Info443784966457-2297966"],
Cell[117136, 3277, 1225, 33, 21, "Print",ExpressionUUID->"b21db966-76d6-4865-9c87-c1e479d875ca",
 CellTags->"Info443784966457-2297966"]
}, Open  ]]
}, Open  ]],
Cell[118388, 3314, 329, 10, 7, "Text",ExpressionUUID->"4a3d0a17-7eea-44d5-8b1e-d9c3f9c0a5ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118754, 3329, 234, 4, 60, "Section",ExpressionUUID->"7dc270da-7904-46a7-a238-c672007f8a29"],
Cell[118991, 3335, 10215, 249, 839, "Input",ExpressionUUID->"fccd78d8-6fa9-494f-b6bd-b416140d2cc9"],
Cell[CellGroupData[{
Cell[129231, 3588, 378, 9, 42, "Input",ExpressionUUID->"0158970e-5fe0-4ebf-9b68-52ff9102c076"],
Cell[129612, 3599, 931, 24, 71, "Output",ExpressionUUID->"0370e442-86d8-47f1-9141-f81fa417245c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130580, 3628, 204, 3, 42, "Input",ExpressionUUID->"74bd8fa4-c043-47cb-a1dd-b3a69a153bc3"],
Cell[130787, 3633, 779, 22, 71, "Output",ExpressionUUID->"1525ec55-0639-479d-beb8-bc36b964a47c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[131615, 3661, 165, 3, 60, "Section",ExpressionUUID->"fe30c5ce-c915-454f-a43f-78c1fa027978"],
Cell[CellGroupData[{
Cell[131805, 3668, 265, 5, 48, "Subsection",ExpressionUUID->"11972b81-74da-4116-9d8f-80a14e5423ba"],
Cell[132073, 3675, 2892, 69, 290, "Input",ExpressionUUID->"a836cddf-f9bd-46dc-890d-9927e8f88359"],
Cell[134968, 3746, 329, 10, 7, "Text",ExpressionUUID->"8b23e3fd-64da-4950-8f4d-4b6122f76f53"]
}, Open  ]],
Cell[CellGroupData[{
Cell[135334, 3761, 276, 5, 48, "Subsection",ExpressionUUID->"cf93e2ed-da9c-4f1f-9613-2cf4f72521d4"],
Cell[135613, 3768, 3757, 87, 379, "Input",ExpressionUUID->"428720ac-313d-4c8c-9ca6-7df662d19f4e"],
Cell[CellGroupData[{
Cell[139395, 3859, 197, 4, 26, "Input",ExpressionUUID->"ffd35c6c-6adb-41f1-afa5-db0b913859f7"],
Cell[CellGroupData[{
Cell[139617, 3867, 181, 4, 42, "Print",ExpressionUUID->"2d57291d-9dda-49f3-921b-9f4b729cea9a",
 CellTags->"Info2633787232876-4430221"],
Cell[139801, 3873, 1101, 31, 21, "Print",ExpressionUUID->"a8771609-c782-4e29-93e3-b5bccdc065aa",
 CellTags->"Info2633787232876-4430221"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[140951, 3910, 464, 12, 42, "Input",ExpressionUUID->"f1091f32-74ba-45ff-afc6-9bec14412c3b"],
Cell[141418, 3924, 550, 11, 59, "Output",ExpressionUUID->"1efbc495-f6cc-449b-995b-9d1421a87e70"]
}, Open  ]],
Cell[141983, 3938, 299, 7, 42, "Input",ExpressionUUID->"5e6bbb72-3748-4426-bbab-8975adfdea76"],
Cell[CellGroupData[{
Cell[142307, 3949, 339, 9, 65, "Input",ExpressionUUID->"127aebdb-66a3-44a2-a0b0-b058bd4f8b66"],
Cell[142649, 3960, 272, 7, 30, "Output",ExpressionUUID->"a2aaddc1-aa69-4f6c-a862-90a772fab1ba"]
}, Open  ]],
Cell[142936, 3970, 329, 10, 7, "Text",ExpressionUUID->"a8a56f81-9048-48ba-8203-1f142d98a463"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[143314, 3986, 186, 3, 60, "Section",ExpressionUUID->"ee8cff17-c5b1-471a-8c4f-77f37ed1e380"],
Cell[143503, 3991, 4638, 133, 430, "Input",ExpressionUUID->"d36a21cb-d63b-46cc-a7b6-5c0a7559acaa"],
Cell[CellGroupData[{
Cell[148166, 4128, 344, 7, 48, "Code",ExpressionUUID->"d186b166-5644-4af8-ad06-893747e49857"],
Cell[148513, 4137, 286, 6, 30, "Output",ExpressionUUID->"b911a8d7-93ab-4513-ab4b-43fd800642a2"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

